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Introduction 


The VIC 20 is a remarkable computer. Despite its low price and small 
size, it has more features than larger and more expensive computers did even 
a few years ago. 

If you want to solve math problems, the VIC can run them for you. If 
you need to type letters or mailing lists, the VIC will do the job quickly and 
easily. 

But in addition to these functions, common to most computers, the 
VIC offers color text and graphics. 

Furthermore, the VIC 20 can produce tones within a range of nine 
octaves. These can be combined to imitate anything from the patter of rain 
to a cannonade. 

Chapter 1 explains how to unpack and set up the VIC 20 and its 
accessories. It contains a description of all the controls on the VIC, from 
connectors to keyboard functions. 

Chapter 2 guides you through the VIC screen editor and explains the 
two operating modes of the VIC: immediate mode and programmed mode. 
This is followed by an introduction to the Datassette, the 1540 disk drive, 
and the 1515 printer. 

Chapter 3 introduces you to programming. All the BASIC instructions 
are covered as well as the concepts of loops, branching, Boolean operators, 


Ix 
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floating point versus integer numbers, and scientific notation. The chapter 
also describes variable types and the construction of arrays. 

Advanced BASIC programming is the subject of Chapter 4. It will 
teach you practical applications of concepts covered in Chapter 3. You will 
learn how to write screen display programs, include cursor movement and 
string variables as commands in your programs, and develop easy-to-use 
I/O intensive programs requiring considerable data entry. Chapter 4 also 
discusses the VIC 20’s real time clock and random number generator. 

Chapter 5 isa tutorial on game controllers. It will show you how to use 
the keyboard as a game controller and how to write programs that access a 
joystick or paddle controller. 

Chapter 6 covers graphics. It explains how the video display works, 
how colors are produced, and how to put characters on the screen. You will 
learn how to animate pictures and produce high-resolution graphics using 
BASIC. 

Chapter 7 discusses sound generation on the VIC including the VIC 
sound registers, the components of sound, and how to use them. You will 
learn how to program music into the VIC 20 and how to save it for playback 
later on. 

Chapter 8 explains the operation of the major VIC peripherals: the 
Datassette, 1540 disk drive, and 1515 printer. It contains a complete discus- 
sion of data file creation, program storage, and high-level disk operations. It 
also discusses all the printer commands including double width characters, 
reverse printing, and high-resolution graphics. 

The appendixes contain tables on all the details discussed in the text, 
from the system architecture and block diagrams to the memory maps. You 
will also find diagrams showing pinouts for all of the connectors as well as 
color, screen, and sound value tables. 


As the electronic industry continues to grow at an incredible rate, 
manufacturers are constantly introducing new equipment. Some of these 
products are new; others are designed to replace existing equipment. 

Two that were released when this book was being written are the 1525 
printer and the 1541 disk drive. 
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The 1525 printer is essentially an upgrade of the 1515 printer. It 
operates like the 1515 and interfaces to the VIC in the same way. The major 
differences are its slightly improved operation resulting from new internal 
software and its redesigned case that allows it to accept standard 9-inch 
(including perforations) paper. 

The 1541 disk drive was introduced to provide compatibility between 
the VIC 20 and Commodore 64 computers. If you are using the VIC 20 
alone, you can use either disk drive. Except,for this compatibility difference, 
the two disk drives are identical. 

All the information in this book applies to both new and old units of the 
1515/1525 printers and the 1540/1541 disk drives. 
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CHAPTER 


Introducing tne 
VIC 20 Computer 


Wren you first unpack the VIC 20, you will find the equipment 
‘shown in Figure 1-1: 


- The VIC 20 computer 

- Television RF modulator (small black box) 
- Power supply (larger plastic box) 

- TV switch box 

- Video cable 


While your system may include additional components, all systems 
include this basic equipment. This chapter identifies each component and 
connector provided by Commodore and introduces the function of each. 

Place the VIC 20 on a flat surface such as a table. Make sure that you 
have room to put a television near the VIC 20, ideally directly behind it. 


REAR AND SIDE PANEL 


All of the switches, connectors, and interfaces are located at the side 
and back of the VIC 20 computer. These components are labeled in Figure 
1-2. It is important that you learn the function and location of each 


4 
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FIGURE 4-2. Rear/side view of the VIC 20 
component as you hook up the computer to avoid damaging it by using 


connections incorrectly. 


Power Switch 
Make sure the VIC 20 is OFF at this point. The power switch is located 
on the right side of the computer. It is a two-position “rocker” switch. 
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When you turn the power switch ON, the VIC will display a dark screen 
for a short time. During this period it is initializing itself; that is, it is 
checking out its internal systems and determining how much memory it has 
available. 

When you turn the power OFF, all programs and data in memory that 
were not stored onto either diskette or tape will be lost. 


Power Connector 


The power supply has two cables attached to it. One plugs into any 
standard 110 volt AC outlet. The other plugs directly into the power 
connector next to the ON/OFF switch on the side of the VIC 20. 


Game Port 


This connector is used for the various game controllers available for 
the VIC 20, as well as for the light pen and some special application devices. 
ATARI] joysticks and paddles will work with this port, as well as those made 
by Commodore. 


Parallel User Port 


The parallel user port is a connector that allows you to hook up devices 
(such as the VIC modem) to the VIC 20. 

More advanced users may use this connector for custom applications 
as well, since the signals coming from it can be programmed directly by the 
VIC 20. 


Cassette Interface 


The cassette interface is used to connect the Datassette, which is a 
special digital tape recorder. You can use it to store and reload programs 
and data into the VIC 20. The Datassette is described later in this chapter. 


Serial Port 


The serial port is used to connect the computer to the model 1515 
printer, the disk drive, and other devices using a serial input/output 
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configuration. Instructions for connecting the printer and disk drive to the 
VIC 20 are provided later in this chapter. 


Video Port 


The VIC 20 produces the sound and pictures displayed on your 
television by combining them into a signal called composite video. This 
signal is sent out through the video port. 

A video monitor (a television without a tuner) is able to convert the 
composite video directly into pictures and sound. A television, however, 
must be tuned to a particular channel. That signal is produced and 
combined with the composite video by the RF (radio frequency) modulator 
(the small black box in Figure 1-1). 

When you use the VIC 20 you can select either channel 3 or channel 4 
by flipping the channel switch on the side of the modulator. 


Expansion Interface 


The expansion interface gives you access to the computer’s memory 
lines. Through it you may increase the memory size of your VIC 20 to as 
much as 32K (more than 32,000 bytes). 

NOTE: Increasing the memory size may cause the computer’s memory 
to be reconfigured. This will cause the screen display information and some 
parts of user memory to be moved to other locations in memory. Generally, 
this will cause no noticeable changes. In some cases, however, it will cause 
program run failures. Look at the memory map in Appendix B for specific 
information on memory expansion and reconfiguration. 


Video Display 


When you first power up the VIC 20 it displays 23 rows with 22 
characters per row. The computer generates these characters by lighting the 
appropriate pattern of dots within an 8 X 8 matrix. This is illustrated in 
Figure 1-3. The VIC 20’s character set is quite extensive, containing 256 
letters, numbers, and symbols. It is also possible to program custom 
characters for special applications. This will be discussed in Chapter 6. 
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a. 8 X 8 dot matrix ~ b. Sample letter A c. Sample Graphic 


FIGURE 1-3. The 8 X 8 dot matrix 


POWER UP 


Connect the TV switch box to the back of the television by attaching 
one end of the cable with the phono jacks (Figure 1-4) to the switch box. 


FicureE 4-4. Television switch box and connections 
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Connect the larger plug of the video cable to the round five-pin video 
port on the back of the VIC 20 (see Figure 1-2). 

Finally, plug the power supply cord into the VIC 20 power connector. 
Do not turn on the VIC yet! 

To start using your VIC 20, follow these steps: 


I, Plug the AC power cord into a wall outlet. 


2. Switch the power ON. The power switch is located on the right side 
near the AC plug. 

3. Wait for the READY display. This can take several seconds, 
during which the VIC is going through a self-checking and initializa- 
tion process. 


The following display should now appear: 


. oO CBM BASIC Vo sm 
2589 BYTES FREE 


If you not not get this display, turn the power OFF, wait about ten 
seconds, and turn the power ON again. If you still don’t get this display, 
check the connections. If that does not help, contact your Commodore 
dealer. | 
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THE KEYBOARD 


In almost every application the keyboard is used to communicate with 
the VIC 20. The keys are arranged much like those on a standard typewriter. 
Unlike typewriter keys, however, the VIC 20’s keys can be used to access as 
many as three or four different symbols, characters, or functions. 

The keys on the VIC 20 may be classified by function as follows: 


- Alphabetic keys 

- Numeric keys 

- Special symbol keys 
- Graphic keys 

- Function keys 

- Cursor control keys 


Alphabetic Keys 


The alphabetic keys include the 26 letters of the alphabet in both upper 
and lower case. When the VIC 20 is powered up, letters are displayed in 
upper-case. To display lower-case letters, press the COMMODORE and 
SHIFT keys simultaneously. If you are typing lower-case letters and wish to 
insert an occasional upper-case letter, use the SHIFT key as you would ona 
typewriter. Press SHIFT-COMMODORE again to return to upper-case mode. 


FEY EEE ERY 
EE A hele 


Mv | |_onrr | 
a Pe xs\ on eo 


na 
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Numeric Keys 


The numeric keys are used to enter the digits 0 through 9. 


fm Wig® hen ES va =1\) aa fr) pV rived viele at gia (zal 
ee tea (i 
ey REREREAENEN ENE ee NEVE an aa (Mem 
FE) =) Peed AR AY =p (a 


———— 


Special Symbol Keys 


The special symbol keys include the following standard punctuation 
marks: !’“.,;: ?. They also include the following mathematical symbols: 
+ — / « t = (note that a slash is used for division, an asterisk for 
multiplication, and an up arrow for exponentiation). Other special symbols 
available on the VIC 20 include #$&@%E wr >[]-. 


PVE EE EAFEEAEN EN ENED 
Fay ty NANED eer EA gol 


Ree eal ela Nea ea an 


AAR 


Graphic Keys 


The VIC 20 also has 62 graphic symbols that may be accessed through 
the SHIFT or COMMODORE function keys. Using these graphic symbols, you 
can create fairly sophisticated display drawings. 

The graphic symbols and their names are listed in Table 1-1. Similar 
symbols have been grouped to make graphic options immediately obvious. 
Note that the square enclosing each of the graphic symbols shown in Table 
1-1 and Figure 1-3 is not actually part of the symbol, but has been added to 
show the symbol’s location within its 8 X 8 grid. 
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TABLE 4-4. Graphic Character Keys 


Lin Quarter Block 
Horizontal Bar Solid 


Top Left 
o @O~ OOS 
: Y wy e Top Right 
3/4 To Bottom Bottom Left, 
: Bottom Right 
2/3 Top Left Diagonal 


Near Middle Right 
Quarter Block 


Middle Open (Angle) 

Thick (F) Top Left, 

Bar Fi Top Right 

Top Bottom Left 
Bottom Right 


Bottom 


2/3 Bottom 


3/4 Bottom 
Cross 
Bottom 


Diagonal 


Left Corner 
Acute 


Top Left, 

Vertical Right Hep Tien 
Bottom Left, 
ica Bottom Right 


3/4 Left 


Line 


Diagonal 
Grave 


2) es) 


Rounded 
Corner 


Top Left, 
Top Right 
Bottom Left, 
Bottom Right 


Full 


2/3 Left Left 
Half Left 


Near Middl Bottom 
ear Middle Half 


Bottom 


Middle 


2/3 right Triangle 
Solid Suit 


3/4 right Top Left (Zz Spade, Heart 
‘ d, 
= ror naw (8)(%) Bare 


2 
ose 
ion} 
ic] 
— 
@ 


Outline 


ec 


Solid 


BS & 9 &3 be bb 


Downloaded from www.Manualslib.com manuals search engine 


40 The VIC 20 User Guide 


@ Fe 4 e\/eal lem a (aa Osis 
eat A Ae ee 
mma, ge ane aR URa pat rae eas al aye Ve 

EEE! eased aan za 


Ber. 


\ 


Function Keys 


Any key that “does something,” rather than “prints something” is a 
function key. For instance, CTRL-RED (pressing the CTRL and RED keys 
simultaneously) doesn’t print anything, but instead causes all subsequent 
characters to be displayed in red on the screen. 


RUN/STOP RESTORE 
SHIFT/LOCK COLOR CONTROL KEYS | RETURN 
pipe gegen 


Fara oy AT EE 
poe ae ee 


ae 7 veer (Ve ae here Nmiiah sh Van\ 


Paya | 


SHIFT SHIFT 


SHIFT 


The SHIFT key is used in conjunction with any other key on the 
keyboard to access that key’s “shifted” function or character. Most keys 
have both a shifted and unshifted character or function. For example, 
shifted lower-case letters become upper-case letters, and a shifted CRSR 
UP/DOWN causes the cursor to move up. 

There are two identical SHIFT keys on the VIC 20 keyboard. One is at 
the lower left corner of the keyboard, while the other is at the lower right. 


SHIFT LOCK 


You may occasionally need a continuous string of shifted characters. 
To make this operation easier, the VIC 20 has a SHIFT LOCK key that is 
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TTT 


similar to the SHIFT LOCK on a typewriter. Pressing the SHIFT LOCK key 
until it clicks will lock the keyboard into shifted mode. Pressing it until it 
clicks again will unlock the shifted mode. 


RETURN 


The RETURN key is much like the carriage return key ona typewriter. It 
causes the cursor (the flashing square that indicates where the next 
character will appear) to return to the left-hand margin of the next line. 

The RETURN key is also used to enter instructions in BASIC. After 
keying in a line of your program, you press RETURN to enter that line into 
memory. 

A RETURN executed while the cursor is on the bottom line of the screen 
will cause the entire screen to scroll up, moving the cursor to the beginning 
of the new blank line generated by the scroll. 


PRINT"NOW IS THE" 
PRINT’ TIME FOR" 
PRINT"ALL GoopDp" 
PRINT"PEOPLE" 
READ x 


90 A=B+C+D 
1 A=1 THEN 16 
> A=20 THEN 35@ 
(120 PRINT'START" 

‘= 
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-PRINT'’TIME FOR” 
PRINT"ALL GooD" 
PRINT"PEOPLE" 

be 


READ 


Oo A=-B+C+D 

Bea IF A-1 THEN 186 
10 IF A=2o THEN 3a 
23 PRINT"'START" 


REVERSE ON/OFF 


The RVS ON and RVS OFF keys allow you to exchange the light and dark 
parts of the characters on the screen. The default mode for this function is 
RVS OFF. The RVS ON is like the negative of a photograph. To reverse the 
characters, press CTRL and RVS ON at the same time. All subsequent 
characters entered will be displayed in reverse. To switch back again, press 
CTRL and RVS OFF. 


NORMAL PRINT ssivststets@meaenapnd 


AVS 
OFF 


RUN/STOP 


In the unshifted mode, the RUN/STOP key will stop any program that is 
being executed, returning control of the computer to the keyboard. It will 
also display the number of the program line that was being executed before 
the stop instruction was received. 
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To demonstrate this, enter the following short program: 


Now type RUN and press RETURN. You should see a string of numbers 
scrolling down the left side of your screen. After pressing RUN/STOP your 
screen should look like the following: 


OVARUSDNEGSVOVAG AONE @ 


fob fb fab fob ek beh eb A ph 


BREAK IN 22 
REAL . 
i 


Unless the VIC 20 is running a program, RUN/STOP does nothing. 
Pressing SHIFT and RUN/STOP loads and executes a program from the VIC 
Datassette. 


RESTORE 


If pressing the RUN/STOP key alone does not stop a program, then press 
RUN/STOP and RESTORE simultaneously. If this does not work, turn the 
power off and then on. 
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COLOR CONTROL KEYS 


Along the top of the keyboard, just under the number keys (1-8), are 
located the eight color control keys: black, white, red, cyan (light blue), 
purple, green, blue, and yellow. These keys change the color of the 
characters being typed on the display. To use these keys you must press 
CTRL and the color you wish to use. For example, when you first power up 
the VIC 20, your screen comes up with a cyan border, white field, and blue 
letters. By pressing CTRL and PUR together, you will begin typing purple 
letters. 


Cursor Control Keys 


The remaining keys move the cursor. They are described individually 


below. 
INSERT/DELETE 
CLEAR/HOME 


fH) ain Jer) ais ave \Y /ie i fy tay 
fe a ee 
eae NE aa Pay A a 


CURSOR UP/DOWN 
CURSOR LEFT/RIGHT 


CLEAR/HOME 


In the unshifted mode, pressing the CLR/HOME key will make the 
cursor jump to the top left-hand corner of the screen (the home position). 
To demonstrate this, type LIST and press RETURN. You should seea listing 
of the program you entered in the last section. If you turned the computer 
off since entering the program, reenter it now. After typing LIST you will 
find the cursor beneath the listing, after the word READY. 
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«19 & = @ 
(26 PRINT x 


Press the CLR/ HOME key. The cursor should jump to the top left-hand 
corner of the screen. 


99 END 
READY. 


In the shifted mode, the CLR/ HOME key will not only return the cursor 
to the home position, but will also erase anything that was on the screen 
(clear the screen). Type LIST again. Now press SHIFT and press CLR/ HOME 
simultaneously. 
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CURSOR UP/DOWN 


Unshifted, the CRSR UP/ DOWN key causes the cursor to move down the 
screen a single line. Holding down the CRSR UP/DOWN key causes the 
cursor to move down until it reaches the bottom of the screen. If the cursor 
is on the bottom line of the screen and the unshifted CRSR UP/DOWN is 
pressed, the entire screen will be scrolled up and the cursor will be 
positioned at the bottom line. 

LIST your program again. Now press the CRSR UP/DOWN key several 
times, or hold it down. When the cursor reaches the bottom of the screen, all 
the lines on the screen will move up from one to four lines. This is because 
the logical length of the lines is 80 characters, but the display is only 22 
characters wide. The Jogical length of a line is the number of characters the 
VIC can handle internally on each numbered line. Therefore, depending on 
how much of a line is left when the cursor reaches the bottom of the screen 
(regardless of what is actually displayed) the screen will scroll up one logical 
line, producing an effective scroll of one to four partial lines. 
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a 


In the shifted mode, the CRSR UP/ DOWN key moves the cursor up one 
line at a time. When the cursor reaches the top of the screen, it stays there. 
The screen will not automatically scroll down (move all the lines down one 
or more positions). 
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CURSOR LEFT/RIGHT 


In the unshifted mode, the CRSR LEFT/ RIGHT key will move the cursor 
right one character position. Press the CRSR LEFT/RIGHT key and hold it 
down. Notice what happens when the cursor reaches the end of a line. It 
jumps to the leftmost position of the next line down. 


i@ PRINT "THE QUICK Ba 
OWN FOX JUMPED OVER TH 
 E— poe aie 


i1@ PRINT "THE QUICK BR 
MWN FOX JUMPED OVER TH © 
Ee poo" 
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Pressing the SHIFT and CRSR keys together will move the cursor left 
one character position. When the cursor reaches the left-hand border, it 
jumps to the rightmost column of the next line up. This is called 
wraparound. It allows you to continue entering lines that are more than 22 
characters long without your having to press RETURN. This is similar to 
having an automatic carriage return. 

If the cursor is at the right-hand edge of the bottom line and CRSR 
RIGHT is pressed, the screen will scroll up a line. The wraparound feature 
advances the cursor to the beginning of the next line, effectively producing a 
CRSR DOWN. | 

The CRSR UP/DOWN and CRSR LEFT/ RIGHT keys are used to move the 
cursor over text without changing the text. To alter the text, move the 
cursor to the character you wish to correct. Typing another character will 
replace the existing one, allowing you to easily edit text on the screen. 


INSERT/DELETE 


The INST/DEL key is used to insert or delete characters on the screen. In 
the unshifted mode, the INST/DEL key deletes the character to the left of the 
cursor. It also moves the rest of the characters in the line left one space and 
adjusts any other characters in the 88-column logical line of which it is a 
part. 


16 PRINT "BIG BROOM" 


1@ PRINT "BIG BROAN 


If you press SHIFT and INST/DEL together, the computer will insert a 
space on the screen. All characters to the right of the cursor will be moved 
one position to the right. 


1a A rB+C+D—-¢ 4a" 2 


10 ArB+CO+D—c 4 WF os 


PROGRAMMABLE FUNCTION KEYS 


In addition to the keys we have just covered, the VIC 20 has four 
programmable, dual-function keys. They are labeled f1/f2, f3/f4, f5/f6, and 
f7/f8. The functions of these keys are specified by the user. 
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Programming the Function Keys 


Most of the function keys can be put into PRINT statements in the 
program mode. For instance, instead of pressing CTRL and RED in the 
immediate mode to print in red, you could put the control functions in a 
PRINT statement such as 


1@ PRINT "CCTRLOCCYANDHAPPY VALENTINES DAY<CTRL) CRED) (HEART) 


When you RUN this line, it will print the words HAPPY VALEN- 
TINE’S DAY in light blue (cyan), followed by a red heart. 

With the exception of SHIFT, SHIFT/LOCK, RETURN, RUN/STOP, and 
RESTORE, any of the function keys can be programmed into PRINT 
statements. 

When the function keys are programmed into PRINT statements they 
appear on the screen as reverse characters. Table 1-2 shows these symbols. 


TABLE 4-2. Special Function Symbols 


CLEAR SCREEN CYAN 
HOME 3 PURPLE 
CURSOR UP u§ GREEN 
CURSOR DOWN ™ §=BLUE 
CURSOR LEFT YELLOW 


CURSOR RIGHT § REVERSE ON 


BLACK REVERSE OFF 


oe SEF Ee EES HD 


WHITE DELETE 


RED 
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THE VIC DATASSETTE 


You will soon find that entering all of your programs by hand is 
tedious. A data recorder will solve this problem. There are two units that 
will work with your VIC 20; both are basically the same. One is the original 
PET/CBM digital cassette drive, and the other is the VIC Datassette 
(Figure 1-5). One advantage the Datassette has over the older unit is a tape 
counter. This makes it easier to locate programs on your tapes. The 
Operation and installation of these two units is the same. To use them, 
follow these instructions. 

Look at the cassette interface on the back of the VIC 20 (Figure 1-2). 
The connector has an offset slot between two of the contacts, as shown in 
Figure 1-6. 

The VIC Datassette has a plug with a divider that fits over the 


Ficure 4-5. VIC Datassette 
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FiGuRE 4-6. Datassette connector 


connector and into the slot. This makes it difficult to connect it incorrectly, 
but it can be done, so be careful. In general, you may find a connector 
difficult to remove once it is on, but it is rare to have trouble installing one if 
it is positioned correctly. If the divider slides over the slot, you can be sure a 
proper connection has been made. 

To connect the Datassette to the VIC 20, follow these steps: 


1. Turn the power OFF. 

2. Hold the plug so the divider will mate with the connector slot. 

3. Gently push the plug onto the interface. Do not force the connection. 
4. Make sure the connection fits securely. 

>. Turn power ON. 


Testing the Datassette 


Before you go any further, you should check the mechanical operation 
of the Datassette. Here is a simple test you can use to make sure that all of 
the control functions are operating properly. 


1. Turn the VIC 20 ON. Make sure that none of the cassette keys are 
depressed and that the cassette drive motor is not running. 
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2. Open the cassette door on the top of the unit by pressing the 
- STOP/EJECT key on the Datassette. While looking inside the unit, 
press the PLAY key on the Datassette. You should see the tape heads 
(Figure 1-7) move out toward the spindles. At the same time, the 
pinch roller should move out, touch the capstan roller, and begin 
rotating counterclockwise. | 


3. Again press the STOP/EJECT key on the Datassette. The tape heads 
should pop back out of view and the spindles should stop rotating. 


4. Press the F.FWD (Fast Forward) key. The tape heads should remain 
hidden and the take-up spindle (on the right) should begin spinning 
counterclockwise very fast. 


5. Pressing STOP/EJECT once should stop the take-up spindle. 


6. Press the REW (Rewind) key. The supply spindle (on the left) should 
begin spinning clockwise very fast. 


7. Press the STOP/EJECT key once. The supply spindle should stop 
spinning. 
8. Very gently press the REC (Record) key. The key should be locked. 


9. Get an unused tape. Look at the back of the cassette. It should have 
two small tabs blocking the write-protect holes (Figure 1-8). 


Pressing the PLAY and RECORD keys simultaneously should start the 
take-up spindle rotating; the head assembly should move out and 
contact the tape, which should start moving. 


Record/ Play Head Head Gap Area 
Capstan 


Erase Head Pinch Roller 


°6 


~ LA PX. 


Vd W/ add 


FiGuRE 4-7. Datassette drive tape head 
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Write-protect notches 


FiGure 4-8, Write-protect notches 


If you can perform all these steps, your cassette recorder is ready to 
begin operation. If some or all of the above tests fail, check the following: 


- Make sure the power is ON. 


- Press only one key at one time (except when checking the record 
function). | 


* Press the keys down until they click into place. 


If you are still unsuccessful, contact your Commodore dealer. 


Cleaning and Demagnetizing 
Tape Heads 


The head assembly of the Datassette can be seen by opening the drive 
door with the power OFF and depressing the PLAY key. Doing this will allow 
you access to the heads for maintenance. Refer to Figure 1-7 for the 
locations of the components mentioned in this section. 

The tape heads are the devices that make contact with the tape and 
either read or write data. Since the tape is actually in contact with the heads, 
some of the oxide coating on the tape will be transferred to the heads during 
normal operation. To assure proper operation of the Datassette it is neces- 
sary to clean this oxide film from the heads periodically using a cotton swab 
soaked in denatured alcohol. Clean both heads, the capstan, and the pinch 
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roller. Allow the area to dry completely before closing the cover. 

The process of reading and writing onto a magnetic surface such as a 
cassette tape results in the build-up of residual magnetism on the heads of 
the cassette. Because of this build-up, it is a good idea to demagnetize the 
heads each time you clean them. Skipping this step in your regular 
maintenance may eventually result in sufficient loss of fidelity to cause both 
read and write errors in your programs. 

To demagnetize the heads, you will need a tape head demagnetizer such 
as the one in Figure 1-9. This is an inexpensive unit that can be purchased at 
most audio equipment stores. 

The Datassette should be OFF when you are demagnetizing the tape 
heads. Open the cassette drive door and press the PLAY key. Make sure the 
demagnetizer is at least two feet away from the Datassette drive before 
plugging it in. Plug in the demagnetizer and slowly move it toward the 
Datassette until it touches one of the heads. Gently move it around on one 
head surface and then the other. Then touch all the metal surfaces near the 
heads and slowly move back away from the Datassette. When you are at 
least two feet away, unplug the demagnetizer. 


PHOTO BY JOE MAURO 


_ FiGure 4-9. A typical tape head demagnetizer 
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Care of Cassette Tapes 


When you use a new tape, balance the tension on the tape by fast 
forwarding it to the end and then rewinding it to the beginning. This will 
help prevent load errors. 

Buy short tapes: 15 to 30 minute at most. This will not only reduce your 
search time when running programs from the middle of your tapes, but will 
ensure that you are using thicker and stronger tapes that are less likely to 
stretch or break with use. Stay away from bargain brands; they tend to cause 
load errors more often than high quality, low noise tapes. 

Store your cassettes in a cool, dry place, away from any magnetism. 

NOTE: One of the most hazardous places to store tapes is on or near 
your television, which produces a magnetic field strong enough to alter the 
data they contain. Never touch the oxide coating on the tape itself; the 
surface is easily scratched and can be damaged by the oils in your hands. 


Cassette Tape Write-Protect 


You can avoid recording (writing) over programs you want to save by 
write-protecting them. Look at Figure 1-8; each cassette tape has two 
write-protect tabs, one tab for each side of the tape. Breaking out a tab locks 
out the REC (Record) key on the Datassette. Should you decide, after 
breaking out a write-protect tab, that you do want to record a program on 
that side of a tape, simply put a piece of tape over the write-protect opening. 


DISK DRIVES 


The VIC 20 can use any of the Commodore disk drives, but the model 
1540 disk drive (Figure 1-10) has been designed to interface directly with the 
VIC 20 through its serial port. The other drives must use a plug-in IEEE 
interface cartridge to connect to the VIC 20. Table 1-3 shows the specifica- 
tions for the 1540 disk drive. 

The 1540 disk drive can store 174,848 bytes of data per diskette. It 
accomplishes this by putting more blocks of data on the outer (longer) 
tracks of the diskette than do other disk drives. 


| 
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FiGuRE 4-10. VIC 1540 disk drive 


Connecting Disk Drives 


To connect a disk drive to the VIC 20 computer, follow these steps: 


1. Unplug the computer’s power cord from the electrical outlet. 


2. Connect the interface cable supplied with the disk drive to the serial 
port on the back of the VIC 20. 


Plug the disk drive’s power cord into an AC outlet. 
Plug the VIC 20’s power cord into an AC outlet. 


Check all your connections. If they look good, then proceed to the 
power-on test. 


il ead 


Power-On Test 


To perform a power-on test, follow these steps: 


1. Turn the VIC 20’s power ON. Wait until it has completed its 
intialization. 


2. Open the disk drive door and make sure the drive is empty. 
3. Turn the disk drive’s power ON. 
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TABLE 4-3. 1540 Disk Drive Specifications 


Storage 
Total capacity 174,848 bytes per diskette 
Sequential 168,656 bytes per diskette 
Relative 167,132 bytes per diskette 
65,535 records per file 
Directory entries 144 per diskette 
Sectors per track 
Bytes per sector 
Tracks 
Blocks 683 (664 blocks free) 
IC’s: 
6502 microprocessor 
6522 (2) I/O, interval timers 


Buffer 


2114 (4) 2K RAM 


Physical: 
Dimensions 
Height 
Width 
Depth 
Electrical: 
Power requirements 
Voltage 100, 120, 220, or 240 VAC 
Frequency 50 or 60 Hz 
Power 25 Watts 
Media: 
Diskettes Standard mini 5-1/4”, single-sided, 
single-density 
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Indicator Lights 


The 1540 disk drive has two indicator lights on its front panel. The 
green one will glow when power is applied to the unit. The red one is the disk 
activity indicator. It will glow when the drive is running, and flash if there is 
an error condition. 


Loading and Unloading Diskettes 


Figure 1-11 illustrates the various parts of a floppy diskette. The 
magnetic surface itself is a disk made of a thin, flexible plastic similar to the 
material used in cassette tapes. This fragile disk is enclosed in a protective 
jacket. The jacket is then placed in an envelope that protects the read/write 
slot. 
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Read/ write slot 


Protective jacket 


Hard/soft-sectored hole 
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Write-protect notch; 
when covered, diskette 
contents cannot be altered 


Figure 4-44. Floppy diskette 


As mentioned earlier, the 1540 disk drive puts more data onto a single 
diskette than almost any other disk drive. The way it does this is by putting 
more blocks of data (sectors) into the data tracks that are near the outside of 
the diskette. Some disk drives put the same number of sectors on each track. 
Of those that do this, there are some that use hard-sectored diskettes. These 
diskettes have a series of evenly spaced holes near their center. The disk 
drive uses these holes to position the sectors. Since the 1540 does not have 
regularly spaced sectors, it does not use these holes. The 1540 uses only 
soft-sectored diskettes (those with only one hole in them). 

To determine what kind of diskette you have, follow this procedure (see 
Figure 1-12): 

1. Take the diskette out of its envelope (not the jacket), and hold it by 

its edges. 

2. Gently insert two fingers into the center hole. 


3. Rotate the diskette with the two fingers in the center hole until a 
small hole in the diskette aligns with the outer small hole in the 
jacket. 


4. Continue rotating the diskette inside the jacket. If you find only one 
hole, the diskette is soft-sectored. If you find more than one hole it 1s 
hard-sectored and cannot be used with the 1540 disk drive. 
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FIGURE 4-42. Test for soft-sectored diskette 


Loading the Drive 
Perform the following steps to load the 1540 disk drive: 


1. Make sure the disk drive is OFF (the red activity light is not lit). 


2. Hold the diskette by its jacket. Do not touch the exposed sections of 
the diskette! The diskette’s label should be facing up, with the 
write-protect notch (Figure 1-11) on your left. 


3. Carefully slide the diskette into the front slot until you hear a click. If 
it doesn’t slide in smoothly, pull it out and try again. Forcing it can 
damage both the diskette and the drive. 


4. With two fingers, firmly press down on the latch until it locks down. 


Unloading the Drive 
To unload the 1540 disk drive, follow these steps: 


Make sure the disk drive is OFF (the red activity light is not lit). 


2. Using two fingers, give the latch a quick press downward and release 
it. Itshould pop up, and the diskette should pop slightly forward out 
of the drive slot. 


3. Hold the diskette gently with your thumb and forefinger and with- 
draw it from the drive. Do not bend or force the diskette! 


4. Put the diskette back into its envelope. 
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FLOPPY DISKS 


If handled properly, floppy diskettes are a convenient method of stor- 
ing data. They are, however, quite fragile, and it is just as easy to write over 
important data as it is to write it in the first place. 


Care of Diskettes 


Diskettes must be handled with care. All of your information will be 
stored on them, and once a diskette is damaged, it is virtually impossible to 
retrieve this information. Here are some hints which will help you protect 
your diskettes. 


1. Whenever the diskette is out of the disk drive, place it in its protec- 
tive envelope. 
2. Never remove a diskette from its protective jacket! 


3. When you label your diskettes, use only a felt-tip pen. Pencils or 
ball-point pens may damage the diskette. 


4. Donot touch or try to clean the diskette surface. This will damage it. 


5. Do not smoke while using diskettes. Tobacco ash or smoke residue 
will damage the diskette surface. 


6. Keep diskettes away from all magnetic fields! Even placing them on 
top of your television set or disk drive can cause some distortion of 
the data stored on the diskette. 


7. Do not expose your diskettes to heat or sunlight. 


Diskette Write-Protection 


You can prevent the information on your diskettes from being over- 
written by write-protecting them. To do this, simply cover the write-protect 
notch (Figure 1-11) with the adhesive labels that came with your diskettes, 
or with a piece of opaque tape. 

If you remove the write-protect notch cover, you will be able to write to 
the diskette again. 
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THE VIC 1515 GRAPHIC PRINTER 


While you can use almost any printer with the VIC 20 through the 
parallel port or by installing an IEEE 488 interface, the 1515 Graphic Printer 
operates directly with the VIC 20 (Figure 1-13). The 1515 can print any 
standard VIC 20 character or symbol both normal and reversed, and it can 
be programmed to print dot graphics. 

The 1515 prints characters using a 7 X 5 dot matrix, and a 7 X 6 dot 
matrix for special symbols. Table 1-4 shows the specifications for the 1515 
Graphic Printer. 


Connecting the Printer 


Follow the steps outlined below to connect the 1515 Graphic Printer to 
the VIC 20. 


1. Unplug the computer’s power cord from the electrical outlet. 


2. Look at the back of the VIC 20. There are two round, similar 
connectors in the center of the back. The one with five pins is the 


FiGurE 4-43. Model 1515 graphic printer 
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TABLE 4-4. 1515 Printer Specifications 


1. General Specifications 


A. Print method Impact dot matrix print (unihammer method) 
B. Character Matrix 5 X 7 dot matrix 
C. Characters Upper and lower case characters, 


numerals symbols, and PET graphic 
characters 


D. Graphics Dot addressible. 7 vertical dots per 
column, max 480 columns. 


E. Character codes VIC-20 8-bit code 


F. Character size Height: 7 dots (2.82 mm) 
Width: 5 dots (1.76 mm) 


G. Print speed 30 characters/sec (left to right, 
unidirectional) 


H. Max number of columns 80 columns 
I, Character spacing 12 characters/inch 


J. Linefeed spacing Character mode 
Graphic mode 


K. Linefeed speed 5 linefeeds/ sec Character mode 
7.5 linefeeds/sec Graphic mode 


L. Paper feed Pin feed 
My. Paper WIG snisidesurptnincstakvcotcmneedeeetacassawaede 4.5 to 8 inches acceptable 
N. Multiple copies Original plus 2 copies 


O. Inked ribbon | Single color, inked roller built-in 
cassette type 


P. External dimensions 172.5D X 328W X 132 H mm 

Q. Weight Approximately 2.5 kg 

2. Operating Environment 

A. Power requirements 120V (USA), 220 ~ 240V (Europe) 
AC + 10%, 50/60 Hz 


B. Power consumption 15 watts max (character printing) 
5 watts (idling) 
C, Temperature 3° C~ 40°C 


D. Humidity 20% ~ 80% (no condensation) 
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video port. The other connector has six pins. It is the serial port. 
Plug the printer cable (Figure 1-14) into the serial port. 


3. The other end of the cable plugs into the six-pin plug on the back of 
the 1515 printer. 


4. Turnthe VIC 20 ON and wait for it to initialize (the READY display 
will appear on the screen). 


Downloaded from www.Manualslib.com manuals search engine 


34 The VIC 20 User Guide 


Five-pin video port Serial port 
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Ficure 4-45. T-5-4 switch 
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5. Turn on the 1515 Graphic Printer. The red power light on the top of 
the printer should glow and the print head should travel to the center 
of the carriage and return to the left. 


6. Move the switch on the back of the printer marked T-5-4 to the “T” 
position (Figure 1-15). The printer should begin printing the entire 
VIC 20 character set. 

The printer should continue printing this until you either turn the 
power OFF or switch the T-5-4 switch to “4” or “5.” 


7. Move the T-5-4 switch to the “4” position. The printer should stop 
printing the test printout. 


If the printer does not operate as described above, recheck all your 
connections and repeat the procedure described above. If you are still 
unsuccessful, consult your Commodore dealer. 


Installing the Ribbon 
Perform the following steps to install the printer ribbon: 


1. Lift off the clear plastic sound cover (Figure 1-16). 


2. Remove the brown front cover by pressing up and in on the two 
thumb rests molded into the cover. 


3. The small tab on each ribbon cassette should face forward. Making 
sure that the ribbon is not twisted (as shown in Figure 1-17), rock 
each ribbon cassette to the outside of the machine and press it down 
into position. 


4. Rotate the ribbon cam out of the way and feed the ribbon between 
the cam and its backing plate (Figure 1-18). 


5. Replace the front cover and the clear sound cover. 


To remove a ribbon, simply reverse the above procedure. 


Paper insertion 


The 1515 Graphic Printer uses a continuous form that can be from 4.5 
to 8 inches wide. It is sprocketed on both sides and can have as many as three 
parts (one original and two copies) as long as the total thickness does not 
exceed 0.2 mm. 


Downloaded from www.Manualslib.com manuals search engine 


36 The VIC 20 User Guide 


FIGURE 1-18. Ribbon cam assembly 
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The following steps show how to insert paper into the 1515 Graphic 
Printer: 


1. Turn the printer OFF and unplug its power cord. 

2. Lift off the clear plastic sound cover. 

3. Open the paper guides (Figure 1-19). 

4. Insert the paper from the rear of the printer through the paper 
chute. 

5. Continue feeding the paper in by hand until it emerges at the front 
of the printer. 

6. Lift the paper-bail and feed the paper underneath it, adjusting the 
bail glides so they will be evenly spaced across the width of the 
paper. 

7. Pull the paper through from the front and align the paper guides so 
the sprocket holes on the paper mate with the sprockets on the 
guides. 

NOTE: The paper should not be too tightly stretched or the 
sprocket holes may tear; however, if the paper is too loose, it will 
wrinkle and bind inside the paper feed mechanism. 

8. Close the paper guides and replace the clear plastic sound cover. 
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Figure 4-49. Loading paper into the 1515 printer 
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9. Advance the paper using the thumbwheel, making sure the paper 
moves smoothly through the feed mechanism. 


10. Plug in the printer and turn it ON. 


Print Head 


You may adjust the force of the print head to compensate for paper 
thickness and ribbon wear as follows: 


1. Turn the printer OFF and unplug its power cord. 


2. Remove the clear sound cover and the brown front cover from the 
printer. (To remove the front cover, it will be necessary to press in 
and up on the two thumb rests molded into the front of the cover.) . 


3. Looking down at the top of the print head you will see the pressure 
adjustment lever (Figure 1-20). 


4. The lever should be in one of the three position holes. To adjust the 
force of the print head, lift the adjustment lever and put it into one of 
the other holes. Do not leave the adjustment lever between any of the 
holes; it must be resting in one of them to maintain its adjustment. 
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Operating the 
VIC 20 


This chapter will introduce you to the basic operation of the VIC 20 
and some of its peripheral devices: the data cassette, the 1540 disk drive, and 
the 1515 printer. It is especially important for you to become comfortable 
with the VIC’s keyboard and display and to become familiar with the 
computer’s two modes of operation: immediate and program modes. 


IMMEDIATE MODE 


When you turn on the VIC 20 it is operating in immediate mode. The 
flashing cursor signifies that the computer is waiting for instructions and 
also shows where the next character you type on the keyboard will appear on 
the screen. 

In immediate mode, you can use the VIC 20 as you would a calculator. 
You enter statements—instructions to display information, perform a calcu- 
lation, or carry out some other function. When you enter a statement and 
press the RETURN key, the VIC processes, or executes, the statement. First, 
though, the VIC checks your entry for syntax—the correct combination of 
characters in a statement. If the syntax is correct, the statement executes. If 
it isn’t correct, the following message appears: 

PSYNTAX 

ERROR 


READY. 
= 


39 
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If you get a syntax error message, check your Statement for 
typographical errors. 

Immediate mode does what i its name implies: Any statements you enter 
will execute immediately after you press RETURN. 

The PRINT statement is the most frequently used immediate mode 
statement. PRINT instructs the VIC to display whatever follows it. For 
example, PRINT will display the results of calculations such as 


PRINT 360+199+1900 
which, in this case, would be 1559. 


PRINT will also display characters or entire strings of characters. A 
string is a sequence of characters that can include letters, numbers, Spaces, 
and symbols. To display a string such as 


AND MILES TO GO BEFORE I SLEEP 


on the VIC’s screen, you would type the following immediate mode state- 
ment and press RETURN: 


PRINT"AND MILES TO GO BEFORE I SLEEP" 


The string has quotation marks around it; anything enclosed in quotation 
marks ina PRINT statement will display literally as a string of characters. 
For example, a PRINT statement such as 


PRINT" 360+199+160900" 


will not calculate anything. The computer will display a string of characters, 
which in this case is three numbers connected by plus signs. Conversely, the 
statement 


PRINT AND MILES TO GO BEFORE I SLEEP 


will not display anything except a syntax error message. The syntax of a 
PRINT statement always expects numeric or string information to follow. 
The word AND does not represent a number and is not in quotes; therefore, 
the VIC rejects the statement. 

You can abbreviate PRINT by using a aiesions mark. The following 
statements produce the same result: 


PRINT"GODFREY CAMBRIDGE" 
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or 


?'" GODFREY CAMBRIDGE" 


Screen Editing 


One of the most powerful features of the VIC 20 is its screen editor. The 
key to using the VIC 20’s editing capabilities is the cursor. You can move the 
cursor in four directions: up, down, left, and right. You can also insert or 
delete characters anywhere on the screen, or even clear the entire screen 
using a single keystroke. 


EDITING TEXT ON THE CURRENT DISPLAY LINE 


Occasionally, you may notice a mistake on a line you are currently 
entering. You can correct mistakes ona line youare entering by backspacing 
to the error and correcting it. For example, 


OUR BUDGEY 


was intended to display as OUR BUDGET. You can change the Y toa T 
easily enough. Type in the line above and use the SHIFT and CURSOR 
LEFT/ RIGHT keys to position the cursor over the Y. 


OUR BUDGEM 


OUR BUDGETS 


To change the Y toa T, simply type T. This replaces the old letter and 
moves the cursor one position to the right. 
BACKSPACING WITH THE DELETE KEY 


If you just entered a character that you would like to retype, press the 
INST/ DEL key to remove the incorrect character, and then continue typing. 
When you used the CRSR LEFT/ RIGHT key, the cursor simply moved over 
the characters on the screen without changing them. Try the following 
example using the INST/ DEL key: 


OUR BUDGEM 


OUR BUDGET 
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SHIFTING AND DELETING TEXT WITH THE DELETE KEY 


In the following example, the word BUDGET has been entered with 
two U’s. It will be necessary to delete one of the U’s and move the text to the 
left to close up the extra space left by the U. 

To do this, use the CRSR LEFT/RIGHT key to position the cursor over 
the D and press the INST/DEL key once. This key erases the letter to the left 
of the cursor, deleting the U and shifting the text to fill the space. 


OUR BUSDGET 
OUR BADGET 


SHIFTING TEXT TO INSERT CHARACTERS 


In the example below, we need to change OUR BUDGET to OUR 
FAMILY BUDGET. To do this, use the CRSR LEFT/ RIGHT key to position 
the cursor over the space between OUR and BUDGET. 

FAMILY has six letters and you will also need a space at the end of the 
word. Hold down the SHIFT key and press INST/ DEL seven times. This will 
produce seven spaces between the two words. You may nowtype FAMILY 
between OUR and BUDGET. 

Remember, when you are inserting characters, the character directly 
under the cursor is the one that will be shifted to the right. You must also 
remember to enter enough spaces for each word you add, plus a space 
between each word. 


QOURBBUDGET 
OP BUDGET 


OUR FAMILYSBUDGET 


EDITING TEXT BETWEEN QUOTATION MARKS 


If you are editing text enclosed in quotation marks you will need to take 
certain precautions because anything entered within a string will be incorpo- 
rated into it (with the exception of quotation marks, RETURN, and RUN / 
STOP). This “quote mode” enables you to enter special characters, but it can 
be frustrating when you merely want to fix an error in a statement. For 
example, the following line should say PRINT “HOT DOGS FOR SALE”. 


Downloaded from www.Manualslib.com manuals search engine 


Chapter 2: Operating the VIC 20 43 


TTT RR 


Enter the line exactly as shown; do not type end quotes or press RETURN. 
Try to make the necessary change to “HOYT”. 

PRINT “HOYT DOGS FOR S 

ALE 

When you tried to backspace to correct “HOYT”, the computer printed 
a reverse vertical bar. To backspace when editing text in quotation marks, 
you will need to exit the quote mode. One way to do this is to type another | 
set of quotes. While you must enter quote mode to enter a string, you must 
exit quote mode to edit the string. 

Another method of escaping from the quote mode is to hold SHIFT 
down and press RETURN. This will move the cursor down one line, allowing 
you to move the cursor up and make any changes you like. 

While this may seem like an unwelcome “feature,” you can write 
programs using cursor keys. For instance, the immediate mode statement 

HELLO DOWN THERE 

PRINT'OPOOHELLO DOWN TH 


ERE" 
READY. 
7 


displays the text above the PRINT statement instead of below it, as would 
normally be the case. 


Arithmetic Caiculations 


The VIC 20 can perform the four standard mathematical operations: 
addition, subtraction, multiplication, and division. The symbols for 
addition and subtraction are the familiar plus sign and minus sign, but an 
asterisk is used for multiplication and a slash for division. Therefore, to 
multiply 4 by 4 you would enter 

PRINT <4 
or 


Pam 
To divide 8 by 2 you would enter 


PRINT 8S2 


or 
7872 
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PROGRAM MODE 


In both immediate mode and program mode, you enter statements and 
the computer responds to them. However, immediate mode statements are 
very limited. If you were to press the CLEAR SCREEN key, your statement 
would be gone. 

The immediate mode examples you entered earlier in this chapter were 
simple, one-line programs, but they do not do much. Once you become 
familiar with your computer you will want to write longer programs. BASIC 
programs can be hundreds of statements long; program mode statements 
should not be as expendable as immediate mode statements. Therefore, the 
VIC 20 stores program mode statements in main memory. Program mode 
statements are more powerful than immediate mode statements because 
they execute “under their own power.” In immediate mode the computer 
executes one statement and then waits for you to key in another statement. 
In program mode, statements execute automatically in an order that you 
specify. 


Program Entry 


Programs may be entered using the keyboard or loaded into memory 
through the Datassette or disk drive. Each statement entered through the 
keyboard has a corresponding line number. When you press RETURNat the 
end of each statement, that line is stored in the VIC’s memory. 

You can use any line numbers between 0 and 63999. When you enter 
lines in your programs, they will execute in the order they are numbered, not 
the order in which they are entered. For instance, if you entered the lines 


196 FPRINT "“CRAMDEN! 
36 PRINT “RALPH " 

ra FPRINT “THE WINNER I 
ae 


they would execute in the following order: 


THE WINNER IS 

RALPH 

CRAMDEN |! 
It doesn’t matter that there are gaps between the numbers used; VIC BASIC 
keeps the line numbers in order as you enter them. You should leave some 
numbers unused between your program lines so you can add statements 
later. All of this will be covered in greater detail in Chapter 3. 
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Running a Program 


The RUN statement causes the computer to execute any program that 
is in memory. Enter the following program: 

ig@ x = 2 

2Q PRINT 


2320 M@ = « + 1 
40 GOTO 26 


READY. 


The GOTO at line 40 tells the computer to return to line 20 and execute 
the instruction there. 

Typing RUN begins execution at the lowest line number in your 
program. 


RUN 


KOWVOVAUADNHKYOYOVAG AWARD 


FA) PA) Pa a bate fk ph Pash a fod oh pe 


RUN followed by a line number starts execution of your program 
beginning with the specified line number. 
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USING THE VIC DATASSETTE 


The VIC 20 Datassette saves you the time and tedium of keying in 
programs over and over again. The Datassette will store BASIC programs 
and retrieve them when you need them. 

The operations the Datassette will perform go well beyond the scope of 
this chapter. Chapter 8 explores the full potential of the Datassette for 
storing and retrieving data. 


Saving a Program 


Make sure the short program you entered in the last section is still in 
memory by typing LIST. If it isn’t, reenter it. To save it on a cassette, type 


SAVE "RALPH" 
The VIC will respond with 


PRESS RECORD & PLAY ON TAPE 


Press PLAY and RECORD simultaneously. If you press just the PLAY 
key, the VIC will send data to the Datassette but nothing will be stored on 
tape. After you press PLAY and RECORD, the VIC will respond with 


OK 
SAVING RALPH 


While the VIC is saving the program on the Datassette, the cursor 
disappears. When it is finished, the Datassette will stop, the VIC will display 
the READY message, and the flashing cursor will return. 
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Verification 


After you save a program on the Datassette, it is a good idea to verify 
that it was properly recorded. Occasionally, poor quality tapes or slight 
mechanical fluctuations may cause a program to be incorrectly recorded. To 
protect yourself from losing programs, always verify them immediately after 
you store them. 

To verify a program, follow these steps. 


1. Rewind the tape and press the STOP/ EJECT key. 


2. Type VERIFY, followed by the program’s name, and press 
RETURN. 


A typical verify dialog with the VIC may look like the following: 
VERIFY “RALPH" 


PRESS PLAY ON TAPE . 
OK 


SEARCHING FOR RALPH 
FOUND RALPH 


VERIFYING 
OK 


READY . : 


If the program was not saved properly, you will get an error message. If 
this happens, you should SAVE it again and reverify it. 


Loading a Program 


To load a program from the VIC Datassette, simply type LOAD 
program name. The VIC will respond by displaying 


PRESS PLAY ON TAPE 
After you press the PLAY key, the VIC will display OK and then 


SEARCHING FOR 


When you load a program from the Datassette, you do not need to 
enter a program name. If you simply type LOAD, the computer will load the 
first program it reaches on the tape. Using a program name causes the 
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computer to look for the file named, skipping any others it finds. 

After a program is loaded from tape, you can leave the PLAY key 
depressed if you will be loading more information from the tape at a later 
time. However, if you do not intend to load another program from tape 
soon, it is a good idea to press STOP to release the PLAY key so you will not 
accidently try to SAVE a program while the Datassette is in the play mode. 
The VIC can detect when a Datassette key has been pressed, but it cannot 
distinguish which key was pressed. Therefore, if PLAY and RECORD are 
pressed (to SAVE a program) and you attempt to LOAD, the Datassette 
will erase the program instead of reading it. 

You may occasionally have trouble loading a program from tape. 
Instead of displaying 


READY. 
the VIC may display the following message: 


?LOAD 

ERROR 
RERDY. 
= 


If this happens, rewjnd the tape and try loading it again. Try this several 
times if necessary. If this does not work, there may have been an undetected 
problem when the program was saved. Always VERIFY programs after you 
SAVE them, and if they are important or have taken considerable time to 
enter, make one or more backup copies. 

One way to reduce errors during the SAVE procedure is to fast-forward 
a new tape to the end, then rewind it to the beginning before storing anything 
on it. This winding and rewinding process will tend to make the tape move 
through the tape mechanism more smoothly. This is because when tapes are 
manufactured they are wound onto their spools at high speed. This process 
often puts some tension on the tape, and the first time it is unwound it may 
jump a bit as it moves through the mechanism. It may also pull and stick 
slightly in the cassette. Although these effects are not usually noticeable in 
audio applications, they can cause data errors on computer tapes. 

Before entering a LOAD instruction, be sure to rewind the tape to a 
point before your program begins; otherwise the VIC will never find it. A 
good practice is to note the number of the tape counter at the beginning of 
your program and write it down on the tape label beside the name of the 


. 
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program. This will also save time when you LOAD programs, since the 
computer will not need to go through as much tape before reaching the 
program you want. 


LOAD and RUN 


Pressing SHIFT and RUN/ STOP together will automatically LOAD and 
RUN the next program on the Datassette. This works only when the 
computer is in the immediate mode (not executing an instruction from 
within a program). 


OPERATING THE 1540 DISK DRIVE 


If you have been using a cassette drive, you will appreciate how much 
time can be saved over entering programs by hand each time you wish to run 
them. The 1540 disk drive can save you even more time because of its much 
greater flexibility and faster data access time. This section will cover the 
basic operation of the disk drive, listing the diskette directory, and loading 
and running programs from a diskette. The disk operations and statements 
will be covered in detail in Chapter 7. 


Loading a Program 


To load a program from a diskette in the 1540 disk drive, type LOAD 
“file name”,8. 

The “8” above is the device number of the disk drive. This device 
number is set at the factory. The VIC will display SEARCHING FOR “file 
name”. The disk drive will activate, and the red light on the front of the drive 
will come on. If the program is on the diskette, the VIC will also display 


LOADING 
READY . 
If not, you will see 


PTF ILE NOT FOUND 
ERROR 
READ’. 
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If you are not sure of the exact name of a particular file, or don’t know 
what is on your diskette, type 


LOAD"s",6 


and the disk directory will be loaded into memory. To display the directory, 
type 


List 


and the directory will appear on the screen. 


A Pa TD A) Ge: oe 

PT a 

5 "UNITYERSAL WEDGE 

» PRG | 

ra “UNIT TO UNIT" 
PRG 


3 "CHANGE 15450" 
PRG 


R 
af omy at 
11 py "COPY 2asde-154e 
2? "PRINTER DEmMo« 
PRG 
12 “SEQUENTIAL " 
PRG 
11 "PERFORMAHCE TES 
T" PRO 
"CHECK DISK" 
PR 
i? "LOGIC DIAGNOSTI 
Cc" PRG 
412 BLOCKS FREE 
READ. 


To recall any program from diskette, it is absolutely necessary to enter 
the file name exactly as it is found on the directory. Therefore, it is generally 
helpful to list the disk directory before loading any programs. 

Look at the directory in the previous display. The top row (in reverse 
letters) shows the name of the diskette and its ID number. The disk drive 
always stores this number, and each time a diskette is accessed it compares 
the ID number with the number it has stored from the last disk operation. If 
the numbers are the same, the disk drive assumes that the same diskette is 
being accessed and simply performs its operation (SAVE or LOAD). If the 
number on the diskette does not match the one in the disk drive’s memory, 
the disk drive will create a map of all the files on the diskette and update its 
ID memory. This process is called initialization. 

As long as no two diskettes have the same ID number, the disk drive 
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will always initialize itself automatically when you change diskettes. If you 
have two diskettes that have the same ID number, you should manually 
initialize the disk drive by using the following command: 


OPEN 1.6.13. "Ir1o" 


Remember, you need to initialize only when you change diskettes, and 
then only if the ID and name of the current diskette are the same as that of 
the new diskette. 

Note that once a program has been loaded into memory, whether from 
tape, from diskette, or by hand, the computer will treat it in the same manner 
so the procedures for running, listing, and making changes to the program 
remain the same. 


Formatting a Diskette 


Before you can record any data on a new diskette, you must first 
prepare it using a process called formatting. The computer stores and 
retrieves data from the diskette by accessing special locations, called sectors, 
on the diskette. These locations are laid out on the diskette before any data 
can be stored on it. Each sector is a small part of the tracks on the diskette. 
Tracks are similar to the grooves in a phonograph record, but are arranged 
in concentric circles rather than as a spiral. Figure 2-1 shows what the tracks 
ona diskette might look like if you could see them. Each track is divided into 
smaller pieces, called sectors, each of which may contain up to 256 bytes of 
data. When you buy a new diskette, it is not divided into these sectors and 
will not accept anything you try to record on it. Diskettes are not formatted 
when you buy them because each disk drive manufacturer uses a slightly 
different format on its diskettes. The VIC diskette must be formatted ona 
VIC disk drive. 

Here are two methods of formatting a diskette. 


Method 1: 


OPEN 1,8,15 
PRINT#1,“Ndrive no.:disk name,ID no.” 


Example: 
OPEN 1.68.15 
PRINT#1. "MN: NEW DISK.@1" 


| 
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__ 


Sn 


256 bytes of data stored on one sector 


FIGURE 2-4. A diskette’s recorded surface 


The drive number may be omitted when there is only one disk drive 
connected to the VIC. 
Method 2: 
OPEN 1,8,15,“Ndrive no.:disk name,01” 
Example: 
OPEN 1.8.15. "N: NEW DISK.@1" 
Again, the drive number may be omitted in one-drive systems. 
If you have a diskette that has been used before and you wish to 
completely erase it and then prepare it for use as a new diskette, you may 
simply type OPEN1,8,5,“Ndrive no.:disk name”. 
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Example: 
OPEN 1.89,135."N:NEW DISK" 


As before, the drive number is not necessary in one-drive systems, and 
in this case the ID number is intentionally left out. The new disk name is put 
onto the diskette, and the old ID number is used. All the programs and data 
stored on the diskette will be erased. Do not confuse this operation with 
initialization, which sets up the disk and drive for use together. Formatting 
will erase everything from your diskette. 


Saving a Program 


Saving a program onto a diskette is nearly the same as saving a program 
onto tape using the Datassette. The major difference is in the wording 
(syntax) of the command. To save a program on diskette, type the command 
SAVE <program name >”,8. 

If you only have one disk drive you may delete the drive number. For 
example, to save the “RALPH” program from earlier in this chapter, enter it 
and type 


SAVE "RALPH", 8 


The disk drive should activate, the red light on its front should light, the 
video screen should show 


SAVING RALPH 


and the cursor should disappear. When the program has been saved, the 
screen will show the READY message and the cursor will return. 

After you save any program it is a good idea to verify it, as with 
programs stored on tape. To verify RALPH, which you stored on diskette, 


type 
VERIFY" RALPH". 


The screen will display 


SEARCHING FOR RALPH 


VERIFYING 
OK 
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READ’. 
= 


if the program was successfully saved. If not, you will get the 7?VERIFY error 
message. If this occurs, try saving and verifying again. 

Occasionally, there will be flaws on a diskette’s surface. If you try to 
save a program and cannot get it to save properly, there may be a slight 
defect in the track and sector being accessed. Try another diskette in this 
case. 


OPERATING THE VIC 15145 GRAPHIC PRINTER 


You may use the VIC graphic printer to print the data from your 
programs and to list the programs themselves. The printer may be addressed 
in either immediate or program mode. 


The OPEN Statement 


Before you can send data to the printer, you must open a channel to it. 
This is done using the following OPEN statement OPEN number between 1 
and 255,4. 

The first number (between 1 and 255) is the number you will use to 
address the printer. The second number is the printer’s device number. It is 
always 4. 

Here is an example of a printer OPEN statement. 


OPEN 1,4 


You would now send all the data to be printed by the printer to channel 
1 by typing 


PRINT#1. "HOW NOW BROWN COW" 


_ The printer should print HOW NOW BROWN COW and return, 
advancing the paper one row. 

In a program, you could alternately print to the printer and the video 
screen by simply typing PRINT when you want output to the screen, and 
PRINT#1 when you want the output printed on the printer. PRINT always 
outputs to the primary device (the screen, for example, or another device 
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selected by a CMD instruction). PRINT# outputs to a file specially 
OPENéed to that device number. 


The CMD Statement 


If you had a program that displayed all its data on the screen and you 
wanted it to print everything on the printer instead, you could accomplish 
this by adding two lines to the beginning of the program. 

OFEN 1-4 

The OPEN statement opens a channel to the printer, and the CMD 
statement sends all output to the printer. By doing this, every PRINT 
statement is automatically sent to the printer. 

The CMD statement also allows you to produce a printed listing of a 
diskette’s directory. To do this, type 


LOAD"".8e 
This will load the directory into memory. Now type 
OPEN 1.4 
CMD 1 
L_LIsT 


This will generate a complete directory listing on the printer. This will 
also allow you to produce a printed copy of your disk directory, should you 
want to put it in the envelope with the diskette. 

To exit from the CMD mode, enter PRINT# device no. 


The CLOSE Statement 


After you have finished using the printer, you must close the channel to 
it. To do this, type CLOSE channel no. If you OPENed channel | (as we 
did above), type 


CLOSE 1 


After using a CMD statement, you will need to precede the CLOSE 
statement with a PRINT# statement. 
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Here is an example. 


OPEN 1.4 
CMD 1 


PRINT#I = CLOSE 1 


This will ensure that all files are properly closed. Failing to do this may 
cause file errors. 
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CHAPTER 


Programming the 
VIC 20 Computer 


This chapter will teach you how to program your VIC using BASIC, 
its built-in language. If you are already familiar with BASIC, Appendixes G 
and H will serve as comprehensive reference to each statement in the 
language. If you are a beginner, start with this chapter. It will give you the 
background necessary to continue through the rest of the book. 


ELEMENTS OF A PROGRAMMING LANGUAGE 


Program statements must be written following a well-defined set of 
rules. These rules, taken together, are referred to as syntax. There are many 
different sets of rules that define how program statements are written. Each 
set of rules applies to a different programming language. All of the syntax 
rules described in this book apply only to VIC BASIC. 

Programming languages are as varied as spoken languages. In addition 
to BASIC, other common programming languages are Pascal, FORTRAN, 
COBOL, APL, PL/M, PL-1, and FORTH. Uncommon programming 
languages number in the hundreds. 

Unfortunately, programming languages, like spoken languages, have 
dialects. A BASIC program written for your VIC may not run on another 
computer, even if the other computer is also programmable in BASIC. 
These variations in the language syntax are due to a computer’s limitations 
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or special features. However, having learned how to program your VIC in 
BASIC, you will have little trouble learning any other computer’s BASIC 
dialect. 

Some programming language syntax rules are obvious. The addition 
and subtraction examples in Chapter 2 use obvious syntax. You do not have 
to be a programmer to understand these simple calculation statements. 
However, most syntax rules seem arbitrary, and sometimes they are. For 
example, why use “*” to represent multiplication? One would normally use 
“x” for multiplication; but the computer would have no way of differentiat- 
ing between the use of the “X” sign to represent multiplication or to 
represent the letter “x.” Therefore nearly all computer languages use the 
asterisk (*) to represent multiplication. Division is universally represented 
by a slash (/). Since the standard division sign (+) is not present on 
computer or typewriter keyboards, some other character had to be selected. 
The slash was probably chosen because it made the program expression 
look like a fraction. 

BASIC statement syntax deals separately with line numbers, data, and 
instructions to the computer. We will describe each in turn. 


Line Numbers 


As we have already stated, in programmed mode every line of a BASIC 
program must have a unique line number. The first line of the program must 
have the smallest line number, while the last line must have the largest. In 
between, line numbers must be in ascending order. The VIC computer forces 
this upon you: no matter where you enter a line on the display, the VIC will 
move it to its proper sequential position. Consider an existing program with 
the following line numbers: 


180 
190 


If you enter a new statement with line number 165, the new statement 
will initially appear below the existing program, but the computer will 
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automatically insert this statement between lines 160 and 170. This may be 
illustrated as follows: 


Line numbers displayed Lines stored and 
when you entered line 165 redisplayed thus 

120 120 

130 130 

140 140 

150 150 

160 160 

170 165 

180 170 

190 180 

190 

165 


If the line number for a new statement duplicates an existing line 
number, the old statement will be replaced. 

VIC BASIC allows line numbers to range between | and 63999. The 
VIC computer interprets digits appearing at the beginning of any line as the 
line number. If the line number is larger than 63999, a syntax error message 
appears, since you have violated one of the syntax rules for VIC BASIC. 

All BASIC dialects require line numbers to be assigned in ascending 
order, as described above. However, the largest line number allowed varies 
from one dialect of BASIC to the next. 

You use line numbers as addresses, identifying locations within a 
program. This is an important concept, since every program will contain the 
following two types of statements: 

1. Statements that create or modify data 

2. Statements that control the sequence in which operations are 

performed. 

The idea that operations specified by a program must be performed in 
some well-defined sequence is a simple enough concept. Program execution 
normally begins with the first statement in the program and continues 
sequentially. This may be illustrated as follows: 


Start——10 
20 
30 
40 
50 
60 
70 
80 


etc. 
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Most programs, however, contain some nonsequential execution se- 
quences. That is when line numbers become important, because they are 
used to identify a change in execution sequence. This may be illustrated as 


follows: 
Start———10 
20 
30 


40<“ GOTO 70 
— 
60 

70 


80 
90 


Data 


The statement or statements following a line number specify operations 
the computer is to perform, as well as data that must be used while perform- 
ing these operations. We will now describe the types of data you may 
encounter in a VIC BASIC program. 

There are two kinds of numbers that can be stored in VIC computers: 
floating point numbers (also called real numbers) and integers. 


FLOATING POINT NUMBERS 


Floating point is the standard number representation used by VIC 
computers. All arithmetic is done using floating point numbers. The name 
refers to the decimal point’s ability to float, allowing fractions with different 
numbers of digits. A floating point number can be a whole number, or a 
fractional number preceded by a decimal point. The number can be negative 
(—) or positive (+). If the number has no sign it is assumed to be positive. 
Here are some examples of floating point numbers that are equivalent to 
integers. 


5 
=15 
65000 
161 

0 


Here are examples of floating point numbers that include a decimal 
point. 
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0.5 

0.0165432 

—0.0000009 

1.6 

24.0055 

—64.2 

3.1416 

Note that if you put commas in a number, you will get a syntax error 


message. For example, use 65000, not 65,000. 


ROUNDOFF 

Numbers always have at least eight digits of precision; they can have up 
to nine, depending on the number. VIC BASIC rounds off additional 
significant digits. Usually it rounds up when the next digit is more than 5 and 
rounds down when the next digit is 4 or less, but there are some roundoff 
quirks. 

Here are some examples. 


7. S855555556. 
Ba lelelale is iets 


9 8555555557 Appears to round down on 6 
555555556 or less, up on 7 or more 
tT 


PALLIILIS: 


oidd1Liiis 
ParreeRace df Appears to round down on 5 or 
ee less, up on 6 or more 
SCIENTIFIC NOTATION 


Large floating point numbers are represented using scientific notation. 
When numbers with ten or more digits are entered, VIC BASIC automati- 
cally converts these numbers to scientific notation. 


READY. 
- 11111126409 


Downloaded from www.Manualslib.com manuals search engine 


62 The VIC 20 User Guide 


A number in scientific notation has the following form: 
numberE+ee 


where 


number _is an integer, fraction, or combination, as illustrated above. The 
“number” portion contains the number’s significant digits; it is 
called the “coefficient.” If no decimal point appears, it is assumed 
to be to the right of the coefficient. 


E is always the letter E. It substitutes for the word “exponent.” 
+ is an optional plus sign or minus sign. 


ee is a one-digit or two-digit exponent. The exponent specifies the 
magnitude of the number: the number of places to the right 
(positive exponent) or to the left (negative exponent) that the 
decimal point must be moved to give the true decimal point 
location. 


Here are some examples. 


Scientific Notation Standard Notation 
2E1 20 
10.5E+4 105000 
66E+2 6600 
66E—2 0.66 
—66E—-2 —0.66 
1E—10 0.0000000001 
94E20 9400000000000000000000 


Scientific notation is a convenient way of expressing very large or very 
small numbers. VIC BASIC prints numbers ranging between 0.01 and 
999,999,999 using standard notation, but numbers outside of this range are 
printed using scientific notation. Here are some examples. 

9.089 

9E~23 

RERDY. 

2.GL 
i 


READY. 
7999999998.9 

999999999 
READ 


y. 
7999999999. 6 
1E+89 
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Even using scientific notation there is a limit to the size of a number that 
VIC BASIC can handle. The limits are 


Largest floating point number: + 1.70141183E+38 
Smallest floating point number: +2.93873588E—39 


Any number of a larger magnitude will give an overflow error. The 
ei are 3 | of overflow errors: 


1. "7o14t 1836438 


READY. 
9-1. 70141183E+38, 


No Overflow error 
-1,70141183E+38 | 


READY 
71, 70141 184E+38 


OVERFLOW ERROR Overflow error 
READY. 
2-1, 70141 184E+38 J 


POVERFLOW ERROR © 


A number that is smaller than the smallest magnitude will yield a zero 
result. This may be illustrated as follows: 


92. 93873568E-3 
2. 3267 38866-39 


READY. 
22. 99879568E-39 
~2, 93073568E~39 


READY. 
92. 93873587E-39 
Q These numbers are too small; 
they are replaced by 0 


These numbers are acceptable 


READY. 
9-2. 93873587E-39 
@ 


INTEGERS 


An integer is a number that has no fraction or decimal point. The 
number can be negative (—) or positive (+). An unsigned number is 
assumed to be positive. Because of the way in which they are stored in the 
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computer, integer numbers must have values in the range —32768 to 
+ 32767. 


0 

l 

44 
32699 
=—15 


Any integer can also be represented as a floating point number, since 
integers are a subset of floating point numbers. VIC BASIC automatically 
converts integer numbers to floating point before using them in arithmetic. 


STRINGS 


The word string is used to describe data that consists of characters. This 
can be anything that is not interpreted as a number. 

We have already used strings as messages to be displayed on the VIC’s 
screen. A string consists of one or more characters enclosed in double 
quotation marks. 


“HI!” 
“SYNERGY” 

“12345” 

“$10.44 IS THE AMOUNT” 

“22 UNION SQUARE, SAN FRANCISCO, CA” 


Within a string you can include any alphabetic or numeric characters, 
special symbols or graphic characters, cursor control characters (CLR/ 
HOME, CRSR UP/DOWN, CRSR LEFT/ RIGHT), and the RVS ON/ OFF key. The 
only keys that cannot be used within a string are RUN/ STOP, RETURN, and 
INST/ DEL. 

All characters within the string are displayed as they appear. The cursor 
control, color control, and RVS ON/OFF keys, however, normally do not 
print anything themselves. To show that they are present ina string, certain 
reverse field symbols are used, as shown in Table 3-1. 

Strings are entered as part of a statement. A statement must fit within 
an 88-character line, so the longest string you can enter at the keyboard will 
have less than 88 characters, since there must be room for the line number. 

Strings of up to 255 characters can be stored in memory. Long strings 
are generated by concatenation, the joining together of shorter strings. This 
will be explained later in this chapter. 
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TABLE 3-4. Special String Symbols 


Function String Symbol 


Reverse On lad (Reverse R) 


Reverse Off MMM (Reverse Shifted R) 


Home Cursor E=¥ (Reverse S) 


= 
2) 
=< 


Q 
= 
w 


Clear Screen Shifted f..a (Reverse Shifted S) 


| | 5 
= 


Ge] (Reverse Q) 


OQ 
nw 
n 
~ 


Cursor Down 


Cursor Up Shifted EJ (Reverse Shifted Q) 


n} (<Z>} |< 


2) 
rv] 
2) 
y,”] 


Cursor Right Hy (Reverse J) 


Cursor Left Shifted | cRsr Ml (Reverse Shifted ]) 


uBq} (u 


VARIABLES 
The concept of a variable is easy to understand. Consider the following 
statements: 


14@ A=B+C 
200 ?A 


These two statements cause the sum of two numbers to be displayed. 
The two numbers are whatever B and C represent at the time the statements 
are executed. In the following example 

96 Ba4.65 

935 C#3.72 


108 ReB+l 
280 ?RA 


B is assigned the value 4.65, while C is assigned the value 3.27. Therefore, A 
equals 8.37. 
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VARIABLE NAMES 


Variable names can be used to represent string data or numeric data. If 
you have studied elementary algebra, you will have no trouble under- 
standing the concept of variables and variable names. If you have never 
studied algebra, then think of a variable name as a name that is assigned toa 
mailbox. Anything that is placed in the mailbox becomes the value asso- 
ciated with the mailbox name. 

A variable name can have one, two, or three characters. The following 
character options are allowed: 


“ate; 
vege Sesege 


LL. Third character must be $ for a string variable or 
% for an integer variable. A floating point 
variable name can only have two characters. 


Second character can be any unshifted letter 
(A to Z) or any numeric digit (1, 2, 3, 4, 5, 6, 7, 8, 9, 0) 
for any type of variable. 


First character must be an unshifted letter 
(A to Z) for any type of variable. 


Thus the last character of the variable name tells VIC BASIC which 
type of data the variable represents. 

Note that unshifted letters are used for the first and second label 
characters. Unshifted letters may be upper-case or lower-case. Either way, 
they are the letters displayed when the SHIFT key is not being depressed. 

Floating point variables are the ones most frequently used in VIC 
BASIC. Here are some examples of floating point variable names, 


integer variable names, 


A% 
B% 
C% 
Al% 
MN% 
X4% 
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and string variable names. 


A$ 

M$ 

MN$ 

M1$ 

ZX$ 

F6$ 

Variable names can have more than two alphanumeric characters, but 
only the first two characters count. Therefore BANANA and BANDAGE 
are interpreted as the same name, since both begin with BA. VIC BASIC 
allows variable names to have up to 86 characters, but such large names are 
impractical. Four to eight characters is a more realistic limit; long names 
may actually make it harder to read your program. The names below 
illustrate the way VIC BASIC “sees” long variable names. 


MAGIC$ interpretedas MA$ 
N123456789 interpretedas N1 
MMM$ interpreted as MM$ 


ABCDEF% interpretedas AB% 

CALENDAR interpretedas CA 

If you use variable names with more than two characters, keep the 
following points in mind: 


1. Only the first two characters plus the identifier symbol ($ or %) are 
significant. Do not use extended names like LOOP! and LOOP2; 
these are interpreted as the same variable: LO. 


2. VIC BASIC has a number of reserved words which have special 
meaning within a BASIC statement. Reserved words include 
BASIC statements, such as PRINT, and others which we will 
discuss later. No variable name can contain a reserved word 
embedded anywhere in the name. For example, you cannot use 
PRINTER as a variable name, because BASIC would see it as 
“PRINT ER.” This problem usually shows up as a syntax error ina 
line that looks correct. Table 3-4 is a complete list of reserved 
words. | 


3. Additional characters use up memory space that you might need in 
longer programs. On the other hand, longer variable names make 
programs easier to read. PARTNO, for example, is more 
meaningful than PA asa variable name describing part numbers in 
an inventory program. 
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Operators 


The BASIC statement 
108 710.2+4,7 
tells the VIC to add 10.2 and 4.7, and then display the sum. The statement 


200 CaA+B 


tells the VIC to add the two floating point numbers represented by the 
variable names A and B, and to assign the sum to the floating point number 
represented by the variable name C. 

The plus sign specifies addition. The plus sign is referred to as an 
operator. It is an arithmetic operator, since addition is an arithmetic opera- 
tion. There are two other types of operators: relational operators and 
Boolean operators. These take a little more explanation, since they reflect 
conditions and decisions, rather than arithmetic. 

Table 3-2 summarizes the BASIC operators. We will examine each 
group of operators in turn, beginning with arithmetic operators. 


TABLE 3-2. Operators 


| | Parentheses denote order of evaluation 


Exponentiation 
Unary minus 
Multiplication 
Division 
Addition 
Subtraction 


‘t 
‘© ga 
= 


Arithmetic 
Operators 


Equal 


af Not equal 

38 Less than 

38D Greater than 

o & 

i) Less than or equal 


Greater than or equal 


NOT Logical complement 
AND Logical AND 
OR Logical OR 


c 


cpr 


Ww 
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ARITHMETIC OPERATORS 


Anarithmetic operator specifies addition, subtraction, multiplication, 
division, or exponentiation. Arithmetic operations are performed using 
floating point numbers. Integers are automatically converted to floating 
point numbers before an arithmetic operation is performed, and the result is 
automatically converted back to an integer if an integer variable represents 
the result. 

The data operated on by any operator is referred to as an operand. 
Arithmetic operators each require two operands, which may be numbers, 
numeric variables, or a combination of both. 

Addition (+). The plus sign specifies that the data (or operand) on the 
left of the plus sign is to be added to the data (or operand) on the right. For 
numeric quantities this is straightforward addition. 

The plus sign is also used to “add” strings. In this case, however, the 
plus sign does not add the values of the strings. Instead, the strings are joined 
together, or concatenated, to form one longer string. The difference between 
numeric addition and string concatenation can be visualized as follows: 


Addition of numbers: num1I+num2 = num3 
Addition of strings: string]+string2 = string|string2 


Using concatenation, strings containing up to 255 characters can be 


developed. 

“FOR"+“WARD” results in “FORWARD” 

“HI'+ “ "+“THERE” _ results in “HI THERE” 

A$+ BS results in concatenation of 
the two strings represented 
by string variable labels 
AS and BS 

“1"+ CH$+ES$ results in the character “1,” 


followed by concatenation of 
the two strings represented 
by string variable labels 

CH$ and E$ 


If A$ is set equal to “FOR” and B$ is set equal to “WARD,” then A$ — 
B$ would generate the same results as “FOR” + “WARD.” 

Should you try to build a string longer than 255 characters, a STRING 
TOO LONG error is flagged. 
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Subtraction (—). The minus sign specifies that the operand on the right 
of the minus sign is to be subtracted from the operand on the left of the 
minus sign. For example, 


4—] results in 3 
100—64 results in 36 
A-B results in the variable 


represented by label B 
being subtracted from the 
variable represented by 
label A 

55-142 results in —87 


The unary minus operator identifies a negative number. For example, 


4——2 Note that 4 —— 2 is the same as 4+2 


Multiplication (*). An asterisk specifies that the operand on the right of 
the asterisk is to be multiplied by the operand on the left of the asterisk. For 


example, 
100 * 2 results in 200 
50 * 0 results in 0 
A * X1 results in multiplication of 


two floating point numbers 
represented by floating point 
variables labeled A and X1 

R% * 14 results in an integer 
represented by integer variable 
label R% being multiplied by 14 | 


In the examples above, if variable A is assigned the value 4.2 and 
variable X1 is assigned the value 9.63, then the answer would be 40.446. A 
and X1 could hold integer values 100 and 2 to duplicate the first example; 
however, the two numbers would be held in the floating point format as 
100.0 and 2.0, since A and X1 are floating point variables. In order to 
multiply 100 by 2, representing these numbers as integers, the example 
would have to be A% * X1Q%. 

Division (/). The slash specifies that the operand on the left of the slash 
is to be divided by the data (or operand) on the right of the slash. 
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10/2 results in 5 

6400/4 results in 1600 

A/B results in the floating point 
number assigned to variable 
A being divided by 


the floating point number 
assigned to variable B 


4E2/XR results in 400 being divided 
by the floating point number 
represented by label XR 


The third example, A/B, can duplicate the first or second examples, 
even though A and B represent floating point numbers. The integer numbers 
would be held in floating point form, however. A%/B% could exactly 
duplicate either of the first two examples. 

Exponentiation (1). The up arrow specifies that the operand on the left 
of the arrow is raised to the power specified by the operand on the right of 
the arrow. If the data (or operand) on the right is 2, the number on the left is 
squared; if the data (or operand) on the right is 3, the number on the left is 
cubed; and so on. The exponent can be any number, variable, or expression, 
as long as the exponentiation yields a number in the allowed floating point 
range. For example, | 


212 results in 4 

12t 2 results in 144 

1t 3 results in | 

At5 results in the floating 


point number assigned 
to variable A being 
raised to the 5th power 

2t 6.4 results in 84.4485064 

NMt-—10 _ results in the floating 
point number assigned 
to variable NM being 
raised to the negative 
10th power 

l4t F results in 14 being raised 
to the power specified 
by floating point variable F 


ORDER OF EVALUATION 


An expression may have multiple arithmetic operations, as in the 
following statement. 
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A+C * 10/21t 2 


When this occurs, there is a fixed sequence in which operations are 
processed. First comes exponentiation (t), followed by sign evaluation, 
followed by multiplication and division ( * /), then by addition and sub- 
traction (+ —). Operations of equal precedence are evaluated from left to 
right. This order of operation can be overridden by the use of parentheses. 
Any operation within parentheses is performed first. For example, 


4+1 * 2 results in 6 
(4+1) * 2 results in 10 
100 * 4/2—1 results in 199 


100 * (4/2—1) results in 100 
100 * (4/(2—1)) results in 400 


When parentheses are present, VIC BASIC evaluates the innermost set 
first, then the next innermost, and so on. Parentheses can be nested to any 
level and may be used freely to clarify the order of operations being per- 
formed in an expression. 


RELATIONAL OPERATORS 


Relational operators represent the following conditions: greater than 
(>), less than (XK), equal (=), not equal (<>), greater than or equal 
(>=), and less than or equal (<< =). 


1= 5—4 results in true (— 1) 
14> 66 results in false (0) 
IsS>= 15 results in true (— 1) 
A<>B the result will depend 


on the values assigned 
to floating point variables 
A and B 


VIC BASIC arbitrarily assigns a value of 0 to a “false” condition and a 
value of —1 to a “true” condition. These 0 and —1 values can be used in 
equations. For example, in the expression (1 = 1) * 4, the equation (1 = 1) is 
true. True equates to —1; therefore, the expression is the same as (— 1) * 4, 
which results in—4. You can include any relational operators within a VIC 
BASIC expression. Here are some more examples. 


25+(14> 66) | isthe sameas 25+0 
(A+(1 = 5—4)) * (15 >= 15) is the same as (A—1) * (—1) 
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Relational operators can be used to compare strings. For comparison 
purposes, the letters of the alphabet have the order A << B, B< C, C< D, 
and so on. Strings are compared one character at a time, starting with the 
leftmost character. 


“A” < “B” results in true (— 1) 
“xX” = “XX” _ results in false (0) 
C$ = A$+B$ result will depend 


on the string values assigned 
to the three string variables 
C$, BS, and A$ 


When operating on strings, VIC BASIC generates a value of —l fora 
“true” result, and a value of 0 for a “false” result. 


(“JONES” >“DOE”) +37 isthe sameas —1+37 
(““AAA” < “AA”) * (Z9-(““OTTER” > “AB”)) isthe same as 0 * (Z9—(—1)) 


BOOLEAN OPERATORS 


Boolean operators give programs the ability to make logical decisions. 
There are three Boolean operators in VIC BASIC: AND, OR, and NOT. 

A simple supermarket shopping analogy can serve to illustrate Boolean 
logic. Suppose you are shopping for breakfast cereals with two children. 

The AND Boolean operator says that a cereal is selected only if child A 
and child B select the cereal. 

The OR Boolean operator says that a cereal will be selected if either 
child A or child B selects the cereal. 

The NOT operator generates a logical opposite. If child B insists on 
disagreeing with child A, then child B’s decision is always not child A’s 
decision. 

Table 3-3 summarizes the way in which Boolean operators handle 
numbers. This table is referred to as a truth table. 

Boolean operators primarily control program logic. Here are some 
examples. 

IF A= 100 AND B =100 GOTO 10 

If both A and B are equal to 100, branch to line 10 
IF X< Y AND B> = 44 THEN F= 0 
If X is less than Y and B is greater than or equal to 44, 
then set F equal to 0 
IF A= 100 OR B= 100 GOTO 20 
If either A or B has a value of 100, branch to line 20 
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IF X< Y OR B>= 44 THEN F= 0 
F is set to 0 if X is less than Y or B is greater than 43 


IF A= 1 AND B= 2 OR C= 3 GOTO 30 
Take the branch if both A= 1 and B = 2; also take 
the branch if C =3 


A single operand can be tested for true or false. An operand appearing 
alone has an implied “< >0” following it. Any nonzero value is considered 
true; a zero value is considered false. 


IF A THEN B= 2 
IF A< > 0 THEN B= 2 
The above two statements are equivalent 


IF NOT B GOTO 100 
Branch if B is false, i.e., equal to zero. This is 
probably better written as 

IF B= 0 GOTO 100 


All Boolean operations use integer operands. If you perform Boolean 
operations using floating point numbers, the numbers are automatically 
converted to integers. Therefore, the floating point numbers must fall within 
the allowed range of integer numbers. 

If you are a novice programmer, you are unlikely to use Boolean 
operators in the manner that we are about to describe. If you do not 
understand the discussion, skip to the next section. 


TABLE 3-3. Boolean Truth Table 


The AND operation results in a 1 only if both numbers are | 
IANDI1=1 
0 AND 1=0 
1 AND0O=0 
0 ANDO0O=0 


The OR operation results in a 1 if either number is 1 


The NOT operation logically complements each number 
NOT 1=0 
NOT 0= 1 
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Boolean operators operate on integer operands one binary digit at a 
time. VIC BASIC stores all numbers in binary format, using two’s comple- 
ment notation to represent negative numbers. Therefore we can illustrate an 
AND operation as follows: 


43 AND 137= 9 


| LL, 00101011 


09,1, ~ 00001001 


Here is an OR operation. 


43 OR 137 = 171 


| Ln gg, — 10001001 
2B,,— 00101011 


AB,, 10101011 


Here are two NOT operations. 


NOT 43 = 212 


2B,, —~ 00101011 


| | 
D4,,—~ 11010100 


NOT 137= 118 


89,,—~ 10001001 


| 
7616 > 01110110 


If operands are not integers, they are converted to integer form; the 
Boolean operation is performed, and the result is returned as a 0 or 1. 

If a Boolean operator has relational operands, then the relational 
operand is evaluated to — 1 or 0 before the Boolean operation is performed. 
Thus the operation 


A=1ORC<2 
is equivalent to 
~| —| 


or POR or 
0 0 
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Consider this more complex operation. 
IF A= BAND C< DGOTO 40 


First the relational expressions are evaluated. Assume that the first expres- 
sion is true and the second one is false. The statement then becomes 


IF —1 AND 0 GOTO 40 
Performing the AND yields a 0 result. 
IF 0 GOTO 40 


Recall that a single term has an implied “< >0” following it. The expression 
therefore becomes 


IF 0<> 0 GOTO 40 


Thus, the branch is not taken. 
Incontrast, a Boolean operation performed on two variables may yield 
any integer number. 


IF A% AND B% GOTO 40 


Assume that A% = 255 and B% = 240. The Boolean operation 255 AND 
240 yields 240. The statement, therefore, becomes 


IF 240 GOTO 40 
or, with the “< >0”, 


IF 240< > 0 GOTO 40 


Therefore, the branch will be taken. 
Now compare the following assignment statements: 


A= AAND 10 
A= A< 10 


In the first example, the current value of A is logically ANDed with 10, and 
the result becomes the new value of A. A must be in the integer range 
—32768 to +32767. In the second example, the relational expression 
A < 10 is evaluated to—1 or 0,so A must end up with a value of —1 or 0. 
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Arrays 


Arrays are used in many types of computer programs. If you are not 
already familiar with arrays, you will need to learn about them. The infor- 
mation that follows will be very important to your programming efforts. 

Conceptually, arrays are very simple. When you have two or more 
related data items, instead of giving each data item a separate variable name, 
you give the collection of related data items a single variable name. Then you 
select individual items using a position number, which in computer jargon is 
referred to as a subscript, or index. 

A grocery list, for example, may have six items from the meat and 
poultry department, four fruit and vegetable items, and three dairy prod- 
ucts. These three groups of items could each be represented by a single 
variable name as follows: 


MP$(0) = “CHOPPED SIRLOIN” FV$(0) = “ORANGES” 


MP$(1) = “CHUCK STEAK” FV$(1) = “APPLES” 
MP$(2) = “NEW YORK STEAK” FV$(2) = “BEANS” 
MP3(3) = “CHICKEN” FV$(3) = “CARROTS” 
MP3$(4) = “SALAMI” : 

MP3$(5) = “SAUSAGES” DPS$(0) = “MILK” 


DP$(1) = “CREAM” 
DP$(2) = “COTTAGE CHEESE” 


MPS is a single variable name that identifies all meat and poultry products. 
FV$ identifies fruits and vegetables, while DP$ identifies dairy products. 


A subscript follows each variable name. Thus a specific data item 1s 
identified by a variable name and an index. 

Notice that the first index value in the examples above is 0, not 1. 
Subscripts in BASIC start from 0 because this simplifies the programming 
of many scientific and mathematical problems. Many people are un- 
comfortable with this practice, however. If you don’t feel at home with using 
element 0 of an array, simply ignore it and start with a subscript of 1. You 
will waste a little memory space, but you are less likely to make program- 
ming mistakes if you are not trying to “adapt” yourself to the machine. 

We could take the array concept one step further, specifying a single 
variable name for the entire grocery list, using two indexes. The first index 
(or subscript) specifies the product type, and the second index specifies the 
item within the product type. This is one way in which a single grocery list 
variable array with two subscripts could replace the three arrays with single 
subscripts illustrated above. 
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GLS$(0,0) = MP$(0) GLS$(1,0) = FVS$(0) GL$(2,0) = DP$(0) 
GLS(0,1) = MP$(1) GLS$(1,1) = FVS(1) GL$(2,1) = DPS(1) 
GLS(0,2) = MP$(2) GLS$(1,2) = FVS(2) GL$(2,2) = DP$(2) 
GLS(0,3) = MP$(3) GLS$(1,3) = FV$(3) 

GLS(0,4) = MP$(4) 

GLS(0,5) = MP$(5) 


Arrays can represent integer variables, floating point variables, or 
string variables. However, a single array variable can only represent one 
data type. In other words, a single variable cannot mix integer and floating 
point numbers. One or the other can be present, but not both. 

Arrays are a useful shorthand means of describing a large number of 
related variables. Consider, for example, a table containing ten rows of 
numbers, with twenty numbers in each row. There are 200 numbers in the 
table. How would you like it if you had to assign a unique name to each of 
the 200 numbers? It would be far simpler to give the entire table one name 
and identify individual numbers within the table by their table location. 
That is precisely what an array does. 

Arrays can have one or more dimensions. An array with a single 
dimension is equivalent to a table with just one row of numbers. The 
dimension identifies a number within the single row. An array with two 
dimensions yields an ordinary table with rows and columns: One dimension 
identifies the row, the other dimension identifies the column. An array with 
three dimensions yields a “cube” of numbers, or perhaps a stack of tables. 
Four or more dimensions yield an array that is hard to visualize, but 
mathematically no more complex than a smaller-dimensioned array. 

Let us examine arrays in detail. 

A single-dimension array element has the following form: 


name(i) 
where 


name is the variable name for the array. Any type 
of variable name may be used 


i is the array index to that element. i must 
start at 0. 


A single-dimension array called A, having five elements, can be visual- 
ized as follows: 
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A(0) 
A(1) 
A(2) 
A(3) 
A(4) 


The number of elements in the array is equal to the highest index 
number plus 1. This takes array element 0 into account. 
A two-dimension array element has the following form: 


name(i, j) 
where 


name is the variable name of the array 
i is the column index 
jis the row index. 


A two-dimension string array called A$, having two column elements 
and three row elements, might be visualized as follows: 


A$(0,0) A$(0,1) 
A$(1,0) AS(1,1) 
A$(2,0) A§$(2,1) 


The size of the array is the product of the highest row dimension plus |, 
multiplied by the highest column dimension plus 1. For the array above, it is 
3 X 2= 6 elements. 

Additional dimensions can be added to the array. 


name (1i,j,k,...) 


Arrays of as many as 11 elements (index 0 to 10 for a single-dimension 
array) may be used routinely in VIC BASIC. Arrays containing more than 
11 elements need to be specified in a dimension statement. Dimension 
statements are described later in this chapter. If you do not enter the 
subscript for an array in your program, it will be treated as a separate 
variable by VIC BASIC. This can lead to hard-to-find bugs in your pro- 
gram. You should not exploit this distinction in your programs: Other 
languages and other dialects of BASIC do not work in the same way. This 
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technique could cause confusion for other programmers trying to read your 
code. Even you might later decide you had mistakenly left out the subscript, 
and try to fix the “error.” 


BASIC Commands 


In Chapter 2 we described a number of commands that can be entered 
at the keyboard in order to control VIC computer operations. RUN is one 
such command. Commands can all be executed as BASIC statements. 

You are unlikely to execute commands out of BASIC statements when 
you first start writing programs. However, when you start writing very large 
programs you may run out of memory space. Then you must break a 
program into a number of smaller modules and execute them one at a time. 


Reserved Words 


All of the character combinations that define a BASIC statement’s 
operations, and all functions, are called reserved words. Table 3-4 lists the 
VIC BASIC reserved words. You will encounter many of these reserved 
words in this chapter, but others are not described until later chapters. 

When executing BASIC programs, the VIC computer scans every 
BASIC statement, seeking out any character combinations that make up 
reserved words. The only exception is text strings enclosed in quotes. This 
can cause trouble if a reserved word is embedded anywhere within a variable 
name. The VIC computer cannot identify a variable name by its location in 
a BASIC statement. Therefore, you should be Very careful to keep reserved 
words out of your variable names. This is particularly important with the 
short reserved words that can easily slip into a variable name. 

Some reserved words are shown in Table 3-4 with an asterisk. These 
words are added to BASIC by certain plug-in cartridge programs supplied 
by Commodore. They can be used in standard VIC BASIC programs 
without causing an error. Nevertheless, it is a good idea not to use these 
reserved words in any VIC BASIC program. You may at some point want to 
upgrade your VIC with a new cartridge or change a program so that it runs 
on another VIC using one. 
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TABLE 3-4, Reserved Words 


-p |Standard 
— |Character 
Standard 
Character 


ABS RETURN 
AND RGR* 
ASC | | RIGHTS 


ATH RJOY* 
AUTO* RND 


CHANGE * RPEN* 
CHAR* RPOT* 
CHRS q . RSND* 
CIRCLE* 

CLOSE 

CLR 

CMD 

COLOR* 

CONT 

COS 

DATA 

DEF 

DELETE* 


a r+ | 
~ mm 


GRAPHIC* 
HELP* RENUMBER* 
IF RESTORE 


*These words are added to BASIC by using certain plug-in cartridge programs 
supplied by Commodore. | 


+The VIC 20’s alternate character set is activitated by pressing the SHIFT and 
COMMODORE keys simultaneously. 
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BASIC Word Abbreviations 


You learned early in this book that the BASIC statement PRINT could 
always be entered from the keyboard by the abbreviation “? ”. This is 
expanded by the VIC BASIC interpreter to the full word PRINT. 

Most BASIC commands, statements, and functions can be abbreviated 
using the first two characters of the keyword, with the second character 
entered in shifted mode. With the VIC 20’s normal character set (that is, 
upper-case or graphic characters), the second character appears as a graphic 
character. For example, the abbreviation for LIST appears as 


Ls 
lI 


VIC BASIC makes no distinction between the two abbreviations. Either one 
is expanded to the word LIST. 

If a two-letter abbreviation is ambiguous (does ST mean STEP or 
STOP?), the two-letter abbreviation is assigned to the most frequently used 
keyword, and the other word (or words) are either not abbreviated or are 
abbreviated using the first three characters, with the third entered in shifted 
mode. For STEP and STOP, for example, STOP is abbreviated as 


aT 
S| 
STEP is abbreviated as 


steE 

ST~ 
To abbreviate STEP, type an unshifted (upper-case) S, an unshifted T, anda 
shifted E. 

The following sample input lines use two- and three-letter abbrevia- 
tions wherever possible. All abbreviated words are expanded to the full 
spelling when you list the programs. 


Press SHIFT Cx for lower case. 


10 IE a=i@ 

20 bea aN 14+4+eK(2) 

38 dI ¢¢5) 

40 f0 i=@ to 5 

3@ rE e¢id 

68 nE 

78 dA 1,6,2,4,18,5,16 
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88 reS 

90 eN 

VY $$ _ LIST the program. 
10 let azi@ 

20 bea and 14+exP (2) 

38 dim ct) 


40 for i=@ to 5 BASIC statements are 


a dit not abbreviated. 


70 data 1,6:2,4,18,5,16 
88 restore 
98 end 
Press SHIFT C= for upper case. 


After pressing SHIFT and the keys simultaneously, you will see the abbrevia- 
tions displayed with graphics in the place of the shifted characters. The 
expanded listing will display upper-case letters. 

Refer to Table 3-4. The expansions from abbreviations for the two 
functions SPC and TAB include the left parenthesis. This means that if you 
use the abbreviation for either of these, you must not type in the left 
parenthesis. For example, 


10 ?8P(S) 
expands to 


10 Print shcC¢(5) 


a 


Syntax error results from two 
left parentheses 


The correct sequence to key in is 
1@ ?7sP5) 


This parenthesis rule applies only to the SPC and TAB functions and is 
a format inconsistency you will have to watch for when abbreviating these 
function names. For all other functions, you key in both parentheses. For 
example, 


18 ?rN¢1) 
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BASIC Statements 


The operation performed by a statement is specified using reserved 
words (see Table 3-4). 

Statements are not described in detail in this chapter. Refer to Appen- 
dixes Gand H for complete descriptions of all statements recognized by VIC 
BASIC. This chapter introduces you to programming concepts, stressing 
the way statements are used. 


Remarks 


It is appropriate that any discussion of BASIC statements begin by 
describing the only BASIC statement which the computer will ignore: the 
remark. If the first three characters of a BASIC statement are REM, the 
computer ignores the statement entirely. So why include such a statement? 
The answer is that remarks make your program easier to read. 

If you write a short program with five or ten statements, you will 
probably have little trouble remembering what the program does—unless 
you leave it around for six months and then try to use it again. If you writea 
longer program with 100 or 200 statements, you are quite likely to forget 
something very important the very next time you use the program. After you 
have written dozens of programs, you cannot possibly remember each one in 
detail. The solution to this problem is to document your program by 
including remarks that describe what the various parts of the program do. 

Good programmers use plenty of remarks in all of their programs. Inall 
of this chapter’s program examples we will include remarks that describe 
what is going on, simply to get you into the habit of doing the same thing 
yourself. 

Remark statements have line numbers like any other statement. A 
remark statement’s line number can be used like any other statement’s line 
number. 


Assignment Statement 


Assignment statements let you assign values to variables. You will 
encounter assignment statements frequently in every type of BASIC pro- 
gram. Here are some examples of assignment statements. 
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96 REM INITIALIZE VARIABLE X 
10@ LET Xs3.24 


In statement 100, floating point variable X is 
assigned the value 3.24 


150 kz3, 24 


Equivalent to statement 100 above; the LET is optional 
in all assignment statements 


215 Ag="ALSO RAN" 


The string variable A$ is assigned the two 
text words ALSO RAN 


Notice that the first assignment statement (line 100) begins with the 
word “LET”, but the other two don’t. Originally, all assignment statements 
had to start with LET. The idea was that the computer could identify the 
type of statement by looking at the first word. Today, all but a few dialects of 
BASIC have dropped this requirement. Although LET is not required by 
VIC BASIC, it is still a reserved word and cannot appear ina variable name. 

Here are three statements that assign values to array variable DP$(I), 
which we encountered earlier when describing arrays. 


204 REM DP$¢I> IS THE DAIRY PRODUCTS SHOPPING LIST VARIABLE 
216 DP$¢Cad="MILK" 

228 DP$(1>="CREAM" 

294 DPS$¢2)="COTTAGE CHEESE" 


Remember, you can put more than one statement on a single line. The 
three DP$ assignments could be placed on a single line as follows: 


200 REM DP$<I> IS THE DAIRY PRODUCTS SHOPPING LIST VARIABLE 
218 DPS(Q)="MILK" : DP#<¢1)="CREAM" : DP$(2>="COTTAGE CHEESE” 


A colon must separate adjacent statements appearing on the same line. 
Assignment statements can include any of the arithmetic or relational 


operators described earlier in this chapter. 


90 REM THIS IS A DUMB WAY TO ASSIGN A YALUE TO ¥ 
100 Ye3, 24+7.96/8,5 
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This statement assigns the value 4.17647059 to floating point variable 
V. It is equivalent to these three statements 


96 REM X AND Y NEED TO BE INITIALIZED SEPARATELY FOR LATER LSE 
108 X=?7.96 

116 Y=8.5 

120 ¥=3.244+K/W 


which could be written on one line as follows: 
100 X27,96: 928,95: ¥a3,24+K/y 


Here are assignment statements that perform the Boolean operations 
described earlier in this chapter. 


9@ REM THESE EXAMPLES WERE DESCRIBED EARLIER IN THE CHAPTER 
18@ Ax=43 AND 137 
260 Ba=43 OR 137 


The following example shows how a string variable could have its value 
assigned using string concatenation: 


100 ¥$="COTTAGE" 

208 We="CHEESE" 

380 DPSCQ=V$t" "+s 

400 REM DPS¢2) IS ASSIGNED THE STRING VALUE "COTTAGE CHEESE" 


DATA AND READ STATEMENTS 


When a number of variables need data assignments, the DATA and 
READ statements should be used rather than the LET statement. Consider 
the following example: 


9 REM INITIALIZE ALL PROGRAM VARIABLES 
18 DATA 10:20,~-4, 16E6 
26 READ ALB,C.0 


The statement on line 10 lists four numeric data values. These four values are 
assigned to four variables on line 20. After the statements on lines 10 and 20 
have been executed, A= 10, B= 20, C= 4, and D= 16 10°. 

If you have one or more DATA statements in your program, you can 
visualize them as building a “column” of numbers. For example, a DATA 
statement that contains a list of ten numbers would build a ten-entry 
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column. Two DATA statements, each with a list of five data items, would 
build exactly the same column. This may be illustrated as follows: 


10 DATA 10, 20, 30, 40, 50, 60, 70, 80, 90, 100 


First column entry—~, 10 


20 
1 30 
40 a 
50 10 DATA 10, 20, 30, 40, 50 
60 20 DATA 60, 70, 80, 90, 100 
24 80 2 
90 


100 J«— Last column entry 


The first READ statement executed in a program starts at the first 
column entry, assigning each value to corresponding variables named in the 
READ statement. The second and subsequent READ statements take 
values from the column, starting at the point where the previous READ 
statement left off. This may be illustrated as follows: 


10 DATA 10, 20, 30, 40, 50, 60, 70, 80, 90, 100 


220 READ A, B,C 


340 READ 2. SY D = 50 100 
490 READ A, E, F, G 
500 READ B 


NL BF 100 


Q ttt > 
Wo i 
SSss 
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RESTORE STATEMENT 


You can at any time send the pointer back to the beginning of the 
numeric column by executing a RESTORE statement. Here is an example 
of the use of RESTORE. 


10 DATA 10, 20, 30, 40, 50, 60, 70, 80, 90, 100 


220 READ A, B,C 


340 READ C, D 
350 RESTORE 


awd — 
ooo © 


Qn t > 


490 READ A, E, F.G 
500 READ B 


N___ B= 50 


Dimension Statement 


VIC BASIC normally assumes that a variable has a single dimension, 
with index values of 0 through 10. This generates an 1 1-element array. If you 
want a single dimension with more or less than 11 elements, then you must 
include the array variable in a dimension (DIM) statement. You also must 
include the array in a dimension statement if it has two or more dimensions, 
no matter what number of elements the array has. The following example 
provides dimensions for one-dimension array variables MP$, FV$, and 
DP$. We used these variables in our earlier discussion of arrays. 


DIM MP£C5),FV$¢3>, DP#C2) 
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The two-dimension grocery list variable, GL$, would be dimensioned 
as follows: 


DIM GLS¢3.5) 


A DIM statement can provide dimensions for any number of variables, 
providing the statement fits within an 88-character line. 

The number or numbers following a variable name ina DIM statement 
is equal to the largest index value that can occur in that particular index 
position. But remember, indexes begin at 0. Therefore, MPS$(5) dimensions 
the variable MP$ to have six values, not five, since indexes 0, 1,2, 3,4, and 5 
will be allowed. GL§$ (3,5), likewise, specifies a two-dimension variable with 
24 entries, since the first dimension can have values 0, 1, 2, and 3, while the 
second dimension can have values 0 through 5. 

Once you have declared an array variable in a DIM statement, you 
must subsequently reference the variable with the specified number of 
subscripts; each subscript must have a value between 0 and the number 
specified in the DIM statement. If any of these syntax rules are broken, you 
will get a syntax error. 


Branch Statements 


Statements within a BASIC program normally execute in ascending 
line number order. This execution sequence was explained earlier in this 
chapter when we described line numbers. Branch statements change this 
execution sequence. | 


GOTO STATEMENT 


GOTO is the simplest branch statement. It allows you to specify the 
statement that will be executed next. Consider the following example: 


20 fiz4.97 
36 GOTO 190 
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The statement on line 20 is an assignment statement; it assigns a value 
to floating point variable A. The next statement is a GOTO; it specifies that 
program execution must branch to line 100. Therefore, the instruction 
execution sequence surrounding this part of the program will be line 20, then 
line 30, then line 100. 

Of course, some other statement should branch back to line 40. Other- 
wise the statement on line 40 would never be executed by program logic, as 
illustrated above. 

You can branch to any line number, even if the line has nothing but a 
remark on it. However, the computer ignores the remark, so the effect is the 
same as branching to the next line. For example, consider the following 
branch: 


20, Riad. 3? 
38° GOTO 7a 


renee THERE IS A REMARK, AND NOTHING ELSE ON THIS LINE 
88 


94 


The program branches from line 30 to line 70. There is nothing but a 
remark on line 70, so the computer moves on to line 80, executing the 
statements on this line. Even though you can branch toa remark, you might 
as well branch to the next line. This may be illustrated as follows: 

20, AE4. 3? 

3@7GOTO 8a 

49 

38 

66 

7@ REM THERE IS A REMARK, AND WOTHING ELSE ON THIS LINE 
8a 

94 


COMPUTED GOTO STATEMENT 


There is also a computed GOTO statement that lets program logic 
branch to one of two or more different line numbers, depending on the 
current value of a variable. Consider the following illustration: 
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16, 


(26 
30) AveBA~2 
4070N AZ GOTO 10,76, 156 


Ah=3 “y5q 


The statement on line 40 is a computed GOTO. When this statement 
executes, the program will branch to statement 10 if variable A% = 1, to 
statement 70 if variable A% = 2, or to statement 150 if A% = 3. If A% has 
any value other than 1, 2, or 3, the program will not branch. Notice that 
variable A% is assigned a value in statement 30. The value assigned to A% 
depends on the current value of variable B%. The illustration does not show 
how variable B% is computed, but as long as B% has a value of 3, 4, or 5, the 
statement on line 40 will cause a branch. 

To test the computed GOTO statement, key in the following program: 


18 Brmd 

2@ PRINT Be 

38 AneBA~2 

48 ON AAGOTO 10,78. 15a 
7@ PRINT Be 

60 BAs5 

9@ GOTO 30 

15@ PRINT B2 

160 Bus3 

170 GOTO 20 


Now execute this program by typing RUN on any blank line. Do not 
type RUN ona line that is already displaying something. If you do, you will 
get a syntax error and the program will not be executed. 

Can you account for the sequence in which digits are displayed? Try 
rewriting the program so that each number is displayed once, in the 
sequence 345345345... 
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Control Statements 


In every program, the sequence of the statements executed is every bit 
as important as the statements themselves. VIC BASIC has several state- 
ments that control the way a program executes, hence the name “control 
statements.” 

Control statements redirect the execution sequence of a program. 
Some control statements choose one of many paths program logic can take; 
others execute several statements a specified number of times. 


FOR-NEXT Statement 


GOTO and computed GOTO statements let you create any type of 
statement execution sequence that your program logic requires. But sup- 
pose you want to reexecute an instruction (ora group of instructions) many 
times. For example, suppose array variable A(I) has 100 elements and each 
element needs to be assigned a value ranging from 0 to 99. Writing a hundred 
assignment statements would be tedious. It is far simpler to reexecute one 
statement 100 times. This can be done using the FOR and NEXT 
statements. 


18 DIM ACS) 

2Q FOR I=Q@ TO 99 STEP 1 
38 ACIDS] 

40 NEXT I 


Statements between FOR and NEXT execute repeatedly. In this casea 
single assignment statement appears between FOR and NEXT, so this single 
statement is reexecuted repeatedly. 

To demonstrate how FOR-NEXT loops work, we will display the A(I) 
values created within the loop. Key in the following program: 


1@ DIM AC99) 

26 FOR I#@ TO 99 STEP i 

38 ACTOS] 

35 PRINT ACT); 

40 NEXT I 

50 REM IF YOU HAYE A GOTO STATEMENT THAT BRANCHES TO ITSELF, THE 
78 REM COMPUTER EXECUTES AN ENDLESS LOOP: IN EFFECT, IT WAITS 

98 GOTO 9a 


Now key in RUN. One hundred numbers display, starting at 0 and ending at 
99. Press the STOP key to terminate program execution. 
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Statements between FOR and NEXT reexecute the number of times 
specified by the index value directly after FOR. In the illustration above this 
index variable is I. I increases in value from 0 to 99 in increments of 1. The 
first time the assignment statement is executed, I will equal 0 and the 
assignment statement on line 30 will be executed as follows: 


38 ACB) a8 


I increases by the step, or increment, size, which is specified on line 20 as 1. I 
therefore equals | the second time the assignment statement on line 30 is 
executed. The assignment statement has effectively become 


a8 ACL) =1 


I continues to increment by the specified step value until the maximum value 
of 99 is reached or exceeded. 

The step value does not have to be 1; it can have any value. Change the 
step value to 5 on line 20 and reexecute the program. Now the assignment 
statement is executed only 20 times, since incrementing I by 5 nineteen times 
will take it to 95 (the 20th increment will take it to 100, which is more than 
the maximum value of 99). 

The step size does not have to be positive. But if the step size is negative, 
the initial value of I must be larger than the final value of I. For example, if 
the step size is -1 and we want to initialize 100 elements of A(I) with values 
ranging from 0 to 99, then we would have to rewrite the statement on line 20 
as follows: 


18 DIM AC99) 

2@ FOR I=99 TO @ STEP -1 
38 ACI)=] 

35 PRINT ACT); 

40 NEXT I 

6@ GOTO 80 


Execute this program to test the negative step. 

In this example the initial and final values for I, and the step size, are 
treated as integers. You must, however, represent these three values using 
floating point variables or expressions. Expressions will be evaluated to a 
floating point result. The floating point result will be converted to an integer 
using the round-off rules described earlier in this chapter. 

Because round-off rules can cause problems, you are strongly urged to 
use beginning values, ending values, and step sizes as integers. Do not use 
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expressions, since this unnecessarily complicates the program. If you must 
calculate one of these values, it is simpler and faster to do so in a separate 
statement. 

If the step size is 1 (which is frequently the case), you do not have to 
include a step size definition. In the absence of any definition, VIC BASIC 
assumes a step size of 1. Therefore, the statement on line 20 could be 
rewritten as follows: 


10 DIM ACS) 

15 REM USE A STEP SIZE OF 1 
28 FOR I=@ TO 99 

39 ACIal 

35 PRINT ACT); 

4@ NEXT I 

88 GOTO 96 


Also, you do not need to specify the index variable in the NEXT 
statement. But if you do, it will make your program easier to read. 


NESTED LOOPS 


The FOR-NEXT structure is referred to as a program loop, since 
statement execution loops from FOR to NEXT and back to FOR. This loop 
structure is very common; almost every BASIC program that you write will 
include one or more such loops. Loops are so common that they are 
frequently nested. The statement sequence occurring between FOR and 
NEXT can be of any length; it can run to tens or even hundreds of state- 
ments. And within these tens or hundreds of statements, additional loops 
may occur. The following illustration shows a single level of nesting: 


10 DIM ACg9) 

20 FOR I=@ TO 99 

38 ACT=I 

4@ REM DISPLAY ALL VALUES OF ACI> ASSIGNED THUS FAR 
5@ FOR J=@ TO J 

68 PRINT ACJ) 

7@ NEXT J 

8@ NEXT I 

98 GOTO 38 


Complex loop structures appear frequently, even in relatively short 
programs. Here'is an example showing the FOR and NEXT statements, but 
none of the intermediate statements. 
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3@ FOR I=1 TO 18 
6@ FOR X=25 TO 347 STEP 3 


102 FOR Ae9 TO 0 STEP -1 


14@ NEXT A 
200 FOR B=25 TO 19@ STEP 5 


280 NEXT B 
300 NEXT x 


500 FOR Y=1 TO 20 STEP 2 
600 FOR P<i9 TO 20 


65@ NEXT P 
700 NEXT ¥ 


1900 FOR Z=1 TO 10 


1090 NEXT 2 

1266 NEXT I 

The outermost loop uses index I; it contains three nested loops that use 
indexes X, Y, and Z. The first loop contains two additional loops which use 
indexes A and B. The second loop contains one nested loop using index P. 
The third loop contains no nested loops. Each nested loop must have a dif- 
ferent index variable name. Statement execution sequences may be illus- 
trated as follows: 


SQ.FOR Imi TO 12 
Xe25 TO 347 STEP 3 
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Loop structures are easy to visualize and use. There is only one com- 
mon error to watch out for: Do not terminate an outer loop before you 
terminate an inner loop. For example, the following loop structure is illegal: 


S@-ROR I=1 TO 18 

6O-ROR X=25 TO 347 STEP 3 
1GQ7NEXT I 

2HB-NEXT X 


If you do not include the index variable in the NEXT statement, 
program logic will automatically terminate loops correctly, since there is 
only one possible correct loop termination each time a NEXT statement is 
encountered. 

Every program must have the same number of FOR and NEXT state- 
ments, since every loop must begin with a FOR statement and end with a 
NEXT statement. For example, suppose there are two FOR statements, but 
only one NEXT statement. The second FOR statement constitutes an inner 
loop that will execute correctly. But the outer loop has no NEXT statement 
to terminate it, so the program will execute incorrectly. Too many NEXT 
statements will also cause a syntax error. 


Subroutine Statements 


Once you start writing programs that are more than a few statements 
long, you will quickly find short routines that are used repeatedly. For 
example, suppose you have an array variable (such as A(1)) that is reinitial- 
ized frequently at different points in your program. Would you simply 
repeat the three instructions that constitute the FOR-NEXT loop described 
earlier? Since there are only three instructions, you may as well do so. 

Suppose you have to initialize the array and then execute ten or eleven 
instructions that process array data in some fashion. If you had to use this 
loop many times within one program, rewriting ten to fifteen statements 
each time you wished to use the loop would take time, but more importantly, 
it would waste a good deal of computer memory. This may be illustrated as 
follows: 
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Start of program —~ 


Repeated routine 


To solve this problem, you could separate out the repeated statements 
and branch to them. This group of statements is referred to as a subroutine. 
But a problem arises. Branching from your program to the subroutine 
is simple enough, since the subroutine starts at a given line number. How- 
ever, where do you branch back to at the end of the subroutine? You could 
execute a GOTO statement whenever you wish to branch to a subroutine. 


Arbitrarily selected 
line numbers 


Start of program— 10 
Subroutine 
_-» 2000 —— start 
100 GOTO 2000 --~ ~~~ Vy 
110 / ff 
fot 
7 / / 
. oe y / 
we 4 of 
7 fA 
: je rd rs . 
4 
a ray! y Ff 2150 —“~~<—end 
/ / ~~ 
od a 
vi / / N] 
yw / a >, 
250 GOTO 2000 Pi yO I 
[sae NI 
260 7 ‘ A 
/ a 4 i 
/ / 
, Return” 
where? 


480 GOTO 2000 
500 
etc. 


Downloaded from www.Manualslib.com manuals search engine 


98 The VIC 20 User Guide 


This statement branches in the same way as a GOTO, but GOSUB 
remembers the line number to which it should return. This is illustrated in 
the following section. 


GOSUB STATEMENT 
Subroutine 
2000 ~——— start 
110 GOSUB 2000 4 
110 5 / 
f Remember Oe 
110 
2150 RETURN «— end 
\ 


\ 
\ [ 
l 


o” 
oe 


Go to 
remembered 
line number 


The RETURN statement causes a branch back to the line number that 
the GOSUB statement remembered. The three-statement loop that 
initializes array A(I), if converted into a subroutine, would appear as 
follows: 


1@ REM MAIN PROGRAM 

26 REM YOU CAN DIMENSION A SUBROQUTINE’S VARIABLE IN THE MATH 
38 REM PROGRAM. IT IS A GOOD IDEA TO DIMENSION ALL VARIABLES 
v@ REM AT THE START OF THE MAIN PROGRAM, 

66 DIM ACIS) 

76 GOSUB 2809 

88 REM DISPLAY SOMETHING TO PROVE THE RETURN OCCURRED 

9@ PRINT" RETURNED" 

106 GOTO 108 

2008 REM SUBROUTINE 

2010 FOR I=@ TO 99 

2628 ACI)31 

2938 PRINT ACID; 

2640 NEXT I 

2056 RETURN 
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NESTED SUBROUTINES 


Subroutines can be nested. That is to say, a subroutine can itself branch 
to, or call, another subroutine, which in turn can call a third subroutine, and 
so on. You do not have to do anything special in order to use nested 
subroutines. Simply branch to the subroutine using a GOSUB statement; 
each subroutine ends with a RETURN statement. VIC BASIC will 
remember the. correct line number for each nested return. The following 
program illustrates nested subroutines: 


18 REM MAIN PROGRAM 

2@ REM YOU CAN DIMENSION A SUBROUTINE’S VARIABLE IN THE MAIN 
3@ REM PROGRAM. IT IS A GOOD IDER TO DIMENSION ALL VARIABLES 
5@ REM AT THE START OF THE MAIN PROGRAM, 

68 DIM AC99) 

7@ GOSUR 2haG 

@@ REM DISPLAY SOMETHING TO PROVE THE RETURN OCCURRED 

9@ PRINT"RETURNED" 

199 GOTO 140 

2008 REM FIRST LEVEL SUBROUTINE 

2018 FOR I=@ TO 99 

2029 ACTI2] 

2038 GOSUB 3200 

2049 NEXT I 

2050 RETURN 

3000 REM NESTED SUBROUTINE 

3018 PRINT ACT) 

3028 RETURN 


This program moves the ?A(I) statement out of the subroutine and puts 
it into a nested subroutine. Nothing else changes. 


COMPUTED GOSUB STATEMENT 


Since GOTO and GOSUB statement logic is very similar, it will not 
come as any surprise that there isa computed GOSUB statement akin to the 
computed GOTO statement. The computed GOSUB statement allows you 
to branch to one of two or more subroutines, depending on the value of an 
index. Consider the following statement: 


98 
198 ON A GOSUB 1800,580,5000, 2300 
118 


When the statement on line 100 is executed, if A = 1 the subroutine 
beginning at line 1000 is called. If A = 2the subroutine beginning at line 500 


| ; 
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is called. If A = 3 the subroutine beginning at line 5000 is called. If A = 4 
the subroutine beginning at line 2300 is called. If A has any value other than 
1, 2, 3, or 4, the program will merely continue executing at line 110. The 
computed GOSUB statement remembers the next line number (in this case, 
110). It does not matter which of the subroutines is called; the called 
subroutine’s RETURN statement will branch back to the stored line 
number (in this case, 110). 

You can nest computed GOSUB statements, just as you can nest 
standard GOSUB statements. 


IF-THEN Statement 


The arithmetic and relational operators described earlier in this chapter 
are frequently used in IF-THEN statements. This gives a BASIC program 
decision-making capabilities. Following IF you enter any expression. If the 
expression is true, the statement(s) following THEN are executed. However, 
if the expression is false the statement(s) following THEN are not executed. 
Here are three simple examples of IF-THEN statements. 

1@ IF A=B+5 THEN PRINT MSG1 

40 IF CCS<"M" THEN IN=O 

38 IF Q¢14 AND MCDM GOTO 66 

The statement on line 10 causes a PRINT statement to be executed if 
the value of floating point variable A is five more than the value of floating 
point variable B. The PRINT statement will not be executed otherwise. The 
statement on line 40 sets floating point variable IN to 0 if string variable CC$ 
is any letter of the alphabet in the range A though L. The statement on line 
50 causes program execution to branch to line 66 if floating point variable Q 
is less than 14 and floating point variable M is not equal to floating point 
variable M1. Otherwise, program execution will continue with the state- 
ment on the next line (GOTO can substitute for THEN). 

If you do not understand the evaluation of expressions following IF, 
then refer to the discussion of these expressions at the beginning of this 
chapter. 


Input/Output Statements 


There are a variety of BASIC statements that control the transfer of 
data to and from the computer. Collectively, these are referred to as 
input/output statements. The simplest input/output statements control 


Downloaded from www.Manualslib.com manuals search engine 


Chapter 3: Programming the VIC 20 Computer 104 


data input from the keyboard and data output to the display. There are also 
more complex input/output statements that control data transfer between 
the computer and peripheral devices such as cassette units, diskette units, 
and printers. These more complex input/ output statements are described in 
Chapter 8. 

Since we have already encountered the PRINT statement, we will 
discuss this statement first. 


PRINT STATEMENT 


You can use the word PRINT or a question mark to create a PRINT 
statement. 

Why use PRINT instead of DISPLAY or some abbreviation of the 
word display? The answer is that in the early sixties, when the BASIC 
programming language was being created, displays were very expensive and 
generally unavailable on medium- or low-cost computers. The standard 
computer terminal had a keyboard and a printer. Information was printed 
where today it is displayed; hence the use of the word “print” to describe a 
statement that causes a display. 

The PRINT statement will display any data. Text must be enclosed in 
quotes. For example, the following statement will display the single word 
“TEXT”: 


19 PRINT "TEXT" 
or 
18 2" TEXT" 


To display a number, you place the number, ora variable name, after 
PRINT. This may be illustrated as follows: 

1@ Az=14 

26 ?5,.A% 

The statement at line 20 displays the number 5 and then the number 10 on 
the same line. 

You can display a mixture of text and numbers by listing the informa- 
tion to be displayed after PRINT. Use commas to separate individual items. 
The following PRINT statement displays the words “ONE”, “TWO”, 
“THREE”, “FOUR”, and “FIVE”, followed by the numeral for each 
number: 


1@ ?"QNE".1."TWO".2. "THREE". 3, "FOUR", 4, "FIVE", 5 
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If you separate variables with commas, as above, then the VIC 
computer automatically assigns 11 character spaces for each variable 
displayed. In other words, it splits each line into two halves. Try executing 
the statement illustrated above'in immediate mode to prove this to yourself. 
If you want the display to remove the empty spaces, separate the variables 
with semicolons, as follows: 


19 PRINT "ONE"; 1; "TWO"523 "THREE"; 3; "FOUR"; 4; "FIVE";5 


Enter this statement in immediate mode and display it to see how the 
semicolon works. 

A PRINT statement automatically advances to the next line of the 
display unless you suppress it. You can suppress this feature by putting a 
comma or a semicolon after the last variable. A comma after the last 
variable will continue the display at the next 11-character space boundary. 
To illustrate this, enter and run the following program: 


19 PRINT "ONE"; 1;"TWO";2 
20 PRINT "THREE";3 


Now add a semicolon to the end of the statement on line 10 and again 
execute the program by typing RUN. The two lines of display will now occur 
on a single line. 

We have been illustrating the numerals by inserting them directly into 
the PRINT statement. You can, if you wish, display the contents of variables 
instead. Try entering and running the following program, which uses vari- 
able A%(I) to create digits: 


1@ FOR I=1 70 5 
20 ACTS] 


38 NEXT 
44 PRINT NONE" ALCL 93 "TWO" }AMC2) 5 "THREE" 3 A%C3) 5 "FOUR"; ANCA) 
58 GOTO 5¢ 


You can put the displayed words into a string array and move the PRINT 
statement into the FOR-NEXT loop by changing the program as follows: 


1@ DATA "ONE", "TWO", "THREE", "FOUR", "FIVE" 
26 FOR I=] TO 5 

38 ARC I)21 

40 READ N$¢I> 

O@ PRINT N$CIDSARCID; 

68 NEXT 

78 GOTO 70 
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The program shown above is not well written. A%(I) can be eliminated, 
and N$ need not be an array variable. Can you rewrite the program using N$ 
and removing A%(I) entirely? 


QUOTES IN STRINGS 


Although most BASIC programs will not need to print quotation 
marks, there are some that do, such as “electronic typewriters” or other 
programs that deal with words rather than numbers. 

Since quotation marks indicate the beginning and end of strings, you 
cannot put them in the middle of a string. You can, however, put a quotation 
mark into a string ora PRINT statement using the BASIC function CHRS. 
CHR$ acts like an array of all the possible characters. You supply a 
subscript, and CHR$ returns the character corresponding to that number. 
The values of the subscripts and the characters they produce are listed in 
Appendix E. The value for a quotation mark is 34. Using CHR$, you can 
print a quotation mark with a statement such as 


1@@ PRINTCHRS$(34);"THIS 1S DISPLAYED IN QUOTES". CHRS(34) 


If you PRINT a string containing control characters, such as CRSR UP 
or HOME, you must take an additional step. In Chapter 2 we described the 
quote mode. In quote mode, cursor movement keys are translated into 
special characters so they can be stored in strings. This allows your program 
to perform these functions while it is running. | 

“Quote mode” also applies to output. To allow you to LIST programs 
containing these control characters, the portion of BASIC that puts 
information on the display “watches” for quotes. When it finds a quotation 
mark, it goes into quote mode and displays control characters in the 

reversed form you see when typing them into a program. This can do 
unpleasant things to a carefully planned display. 

You can escape from quote mode while printing just as you do when 
typing in a program: with a second quotation mark or a RETURN. Since 
programs that print quotation marks usually print them in pairs, you will 
seldom see a problem. If your program must print only one, you can use 
CHR$ to delete the first one, and then print another to leave quote mode. 


1008 PRINTCHRS(34) | CHRS(20) > CHRE(34);"SRYS QUOTED STRINGH" CHREC34) 


CHR$(20) deletes the first quotation mark. Only the second one will appear 
on the screen. 
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PRINT FORMATTING FUNCTIONS 


We use the word formatting to describe the process of arranging 
information on a display (or a printout) to make it easier to understand or 
more pleasing to the eye. Given the PRINT statement and nothing else, 
formatting could become a complex and painful chore. For example, sup- 
pose you want to display a heading in the middle of the top line of the 
display. Does that mean displaying space codes until you reach the first 
heading character position? Not only would that be time-consuming and 
likely to cause errors, but it would also waste a lot of memory, since each 
Space code must be converted into a computer instruction. Fortunately, VIC 
BASIC provides three PRINT formatting aids: the SPC, TAB, and POS 
functions. 


SPC FUNCTION 


SPC is a space-over function. You include SPC as one of the terms ina 
PRINT statement. After the letters SPC you include, in parentheses, the 
number of character positions that you wish to space over. For example, 
you could display a heading beginning at the leftmost character position of 
the display as follows: 


1@ PRINT"HEADING" 


To center the heading on the screen you would first space over eight 
character positions, as follows: 


14 PRINT SPC(8); "HEADING" 


Notice the semicolon after the SPC function. A comma after SPC will 
Start displaying text at the next 11-character boundary following the 
number of spaces specified by SPC. 

When you include the SPC function ina PRINT statement you simply 
cause the next printed or displayed character to be moved over by the 
number of positions specified after SPC; no other PRINT statement syntax 
is changed. 


TAB FUNCTION 


TAB is a tabbing function similar to typewriter tabbing. 
Suppose you want to print or display information in columns. You 
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must first calculate the character position of the line where each column is to 
begin. This may be illustrated as follows: 


Column Number 


0 13 

JONES, P. J. 431-25-6277 
BURKE, P. L. 447-71-7614 
ROBINSON, L.W. 231-80-8421 
etc. etc. 


In the illustration above, columns begin at character positions 0 and 13. 
Now, instead of computing space codes as you go from line to line, following 
each column entry you simply insert a TAB function in the PRINT 
statement. 

Consider one line of the display illustrated above. Counting character 
positions, you could display the line without tab stops, as follows: 


1@ PRINT "JONES,P.J. 431-25-6277" 


Instead of inserting space codes, you could use the space function and 
shorten the statement, as follows: 


1@ PRINT "JONES.P.J.";SPC63) 5 "431-25-6277" 


But tabbing is easier because you tab to a known column number instead of 
counting spaces. 

Note that the entries in the third and fourth columns are numbers that 
were entered as text. Try rewriting the PRINT statement to display these as 
numbers. The numbers no longer align as they did when they were displayed 
as characters (in Chapter 5 we discuss the quirks associated with display 
formatting). In this case, numbers leave a space for a negative sign, and they 
do not display zeros occurring after the decimal point. That is why there are 
differences. 


POS FUNCTION 


POS returns the current cursor position. The position is returned as a 
number, equal to the column number where the cursor is blinking. Write the 
POS function as POS(0). 

The following statement demonstrates the capability of POS: 


1@ PRINT"CURSOR POSITION IS";POS<@) 
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Execute this statement in immediate mode. The display will appear as 
follows: 


?"CURSOR POSITION IS";PO0S¢@) 
CURSOR POSITION IS 18 


The cursor was at character position 18 after displaying CURSOR 
POSITION IS. If you add some spaces after IS and before the closing 
quotes, you will change the number 18 to a larger number. 


INPUT STATEMENT 


When an INPUT statement is executed, the computer waits for input 
from the keyboard; until the computer receives this input, nothing else will 
happen. 

An INPUT statement begins with the word INPUT, which is followed 
by a list of variable names. Entered data is assigned to the named variables. 
The variable name type determines the form in which data must be entered. 
A string variable name (ending with a $) can be satisfied only by text input; 
any number of text characters can be entered for a string variable. To 
demonstrate string input, key in the following short program and run it: 


1@ INPUT A$ 
28 PRINT AS 
36 GOTO 18 


Upon executing an INPUT statement, the computer displays a ques- 
tion mark, then waits for your entry. The program illustrated above displays 
any text which you enter as you enter it. The text is also displayed a second 
time because of the PRINT statement on the next line. The first display 
occurs when the INPUT statement on line 10 is executed. The second 
display is in response to the PRINT statement on line 20. 

You input integer or floating point numeric data by listing the appro- 
priate variable names following INPUT. Separate individual entries with 
commas. The comma is not used for punctuation in an INPUT statement. 
The following example inputs a text word, an integer number, anda floating 
point number, then displays these three entries. Enter and run the program. 


18 INPUT AS,A,AZ 


26 PRINT A$,A,AZ 
3@ GOTO 18 
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You must enter some text followed by a comma, then an integer 
number followed by a comma, then a floating point number followed by 
RETURN. Any departure from this input sequence will cause an error; 
following an error the computer displays two question marks. You will have 
to reenter the data in the correct format. If the computer then displays a 
question mark with the message REDO FROM START, enter the data 
again. 

Now rewrite the PRINT statement so that A$, A, and A% are in an 
order that differs from the INPUT statement. Rerun the program. 

As we discussed earlier, any integer can be represented using a floating 
point number. Therefore, you can input an integer value for a floating point 
variable. You cannot input a floating point value for an integer variable, 
however. You cannot enter text for an integer or a floating point number, 
but you can enter a number for a text variable; the number will be inter- 
preted as characters rather than a numeric value. Try these variations to 
satisfy yourself that you understand the data entry options. 

The INPUT statement is very fussy; its syntax is too demanding for any 
normal human operator. Imagine the office worker who knows nothing 
about programming. On encountering the types of error messages that can 
occur if one comma is out of place, one may well give up in despair. You are 
therefore likely to spend a lot of time writing “idiot-proof” data entry 
programs; these are programs that are designed to watch out for every 
conceivable type of mistake an operator can make when entering data. An 
idiot-proof program will cope with errors in a way that the operator can 
understand. Chapter 4 describes data entry programming in detail. 

One simple trick worth noting is the INPUT statement’s ability to 
display data. You can precede each item of data entry with a short message 
telling the operator what to do. The message appears in the INPUT state- 
ment as text between quotes. A semicolon must occur after the text to be 
displayed and before the first input variable name. Here is an example. 


1@ INPUT "ENTER THE NUMBER 1";N 
20 IF N¢>i THEN GOTO 3@ 

30 PRINT "OK" 

49 GOTO 40 

5@ PRINT"NO. DUMMY, " 

6@ GOTO 18 


This program prints a message, then waits for a single data entry. 
The prompting feature of INPUT does have a pitfall, however: If the 
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prompt string is too long, BASIC tries to read the prompt along with the 
input typed at the keyboard. This will happen only if the prompt extends 
beyond the end ofa row on the screen. To avoid this problem, always make 
sure your prompts are less than 22 characters long. The problem can also 
arise if the INPUT statement follows a PRINT statement that ends with a 
semicolon. Since the prompt starts in the middle of the line, it must be short 
enough to ensure that it does not “overflow” to the next row of the display. 
If you inadvertently make a prompt too long, you may find yourself 
trapped. BASIC will keep telling you to “REDO” your response, then 
display the prompt again. To escape from this trap, use the DEL key to delete 
the prompt, then type your response. The only other way is to press the 
RUN/STOP and RESTORE keys simultaneously. This aborts the program. 


“PRESETTING” THE RESPONSE TO INPUT 


After printing your prompt, INPUT prints a question mark and a 
space. Anything to the right of that space on the screen is treated as if it were 
typed from the keyboard. By adding backspaces to your prompt, you can 
“preset” the response so that the user need only press RETURN. To use this 
feature, add two spaces to your prompt string, followed by the response. 
Then use CRSR LEFT to move the cursor back to the first of the added spaces. 
When INPUT prints its question mark and space, they will replace your two 
spaces, positioning the cursor on the response. If the user simply presses 
RETURN, INPUT will read the response you have set up on the screen. 

You can also preset responses by assigning a value in advance to the 
variable you will INPUT. If the user responds with just a RETURN, the value 
already in the variable is not changed. Note, however, that if you INPUT 
multiple variables, this is an all-or-nothing proposition: If the value for the 
first variable is typed in, values for all variables must be given. 


GET STATEMENT 


The GET statement inputs a single character. No Carriage return is 
needed. The single character input can be any character the VIC recognizes, 
or it can be a numeric value between 0 and 9. The entry will be interpreted as 
a character if a string variable name follows GET. Type in the following 
program and run it: 

1@ GET As 


28 PRINT AS 
34 GOTO 18 
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When you run this program, everything will race off the top of the 
display. Each time you press a key, the character typed will also race off the 
top of the screen. This is because GET does not wait for a character entry, 
but assumes the entry is there. You can make GET wait for a specific 
character by testing for the character as follows: 


16 GET AS 

20 IF AS<>"K" THEN GOTO 18 

3@ PRINT As 

49 GOTO 18 
This program waits for the letter X to be entered. Nothing else will do. 

GET can also be programmed to wait for any keyboard entry. This 
program logic makes use of the fact that the GET statement string variable is 
assigned a null character code until a character is input at the keyboard. The 
null code, 00, cannot be entered from the keyboard, but can be specified 
within a program using two adjacent quotation marks (“ ”). Here is the 
necessary program logic. 


10 GET AF 

20 IF Ag="" THEN GOTO 1@ 

38 PRINT AS 

4@ GOTO 1@ 

If the GET statement specifies an integer or floating point variable, the 
input is interpreted as a numeric digit. The integer or floating point variable 
appearing in a GET statement is assigned a value of 0 until data input is 
received. But since you can enter 0 at the keyboard, program logic has no 
way of knowing whether the 0 represents a valid entry or the absence of any 
entry. This can present problems to programming logic that checks for an 
entry, as shown above. GET statements therefore usually receive string 
characters. 

Programs use the GET statement most frequently when generating 
dialog with an operator. For example, a program may wait for an operator 
to indicate that he or she is there by entering a specific character (for 
example, “Y” for “yes”). Here is the appropriate program logic. 


1@ PRINT "OPERATOR! ARE YOU THERE? TYPE Y FOR YES" 


20 GET AS 
40 IF AS<>"Y" THEN GOTO 28 
4@ PRINT "OK, LET’S GET ON WITH IT" 


Notice that this sequence never displays the character entered at the 
keyboard. Try rewriting the program so that any character entered in the 
GET statement is displayed. 
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PEEK and POKE Statements 


PEEK and POKE are two VIC BASIC statements that you will 
encounter in later chapters. VIC computers can have up to 65,536 individual 
memory locations, each of which can store a number ranging between 0 and 
255. (This strange upper bound is in fact 28—1.) All programs and data are 
converted into sequences of numbers which are stored in this fashion. 

The PEEK statement lets you read the number stored in any VIC 
computer memory location. Consider the following PEEK statement: 


18 AZ=PEEKC 200) 


This statement assigns the contents of memory location 200 to variable A%. 
The PEEK argument may be a number, as shown, an integer variable name, 
or an integer expression, but it must evaluate to the address of a memory 
location. 

The POKE statement writes data into a memory location. For exam- 
ple, the statement 


28 POKE 8@80,A% 


stores the contents of variable A% in memory location 8000. Each POKE 
argument may be a number, a variable, or an expression with a value 
between 0 and 255. A floating point value is automatically converted to an 
integer. 

You can PEEK into read/write memory or read-only memory, but you 
can POKE only into read/write memory. Read-only memory, as its name 
implies, can have its contents read, but cannot be written into. 


END and STOP Statements 


The END and STOP statements halt program execution. You can 
continue execution by typing CONT. You do not have to include END or 
STOP statements in your program, but these statements do make programs 
easier to use. 

In many of the programming examples given in this chapter we have 
used a GOTO statement that branches to itself in order to stop program 
execution. For example, the statement 


3@ GOTO Sa 
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will execute endlessly since the GOTO statement selects itself for the execu- 
tion. We could replace this statement with a STOP statement. When a 
STOP statement is executed, the following message will appear: 


BREAK IN XXxx 
READY 


Then execution stops. XX XX is the line number of the STOP statement. If 
you have more than one STOP statement in your program, use the line 
number to identify which one was executed. 


FUNCTIONS 


Another element of VIC BASIC is the function, which in some ways 
looks like a variable, but in other ways acts more like a BASIC statement. 

Perhaps the simplest way of illustrating a function is to look at an 
example in an assignment statement. 


18 AsSORCB 


The variable A has been set equal to the square root of the variable B. SQR 
specifies the square root function. Here is a string function. 


26 C$sLEFTS(DS, 2) 


In this example the string variable C$ is set equal to the first two characters 
of string variable D$. 

- Functions can substitute for variables or constants anywhere in a 
BASIC statement, except to the left of an equal sign. In other words, you can 
say that A = SQR(B), but you cannot say that SQR(A) = B. 

We have already used four functions. SPC, TAB, and POS are system 
functions used with the PRINT statement to format displays. PEEK is alsoa 
function. 

The discussion which follows shows you how to use functions. A brief 
incomplete summary of the VIC BASIC functions is presented here, but 
complete descriptions of all functions are given in Appendixes G and H. 

You specify a function using an abbreviation (such as SQR for square 
root), followed by arguments enclosed in parentheses. In the case of 
A = SQR(B), SQR requires a single argument, which in this case is the 
variable B. For C$ = LEFT$(D$,2), LEFTS specifies the function; the two 
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arguments D$ and 2 are enclosed in parentheses. Generally stated, any 
function will have one of the following two formats: 


Single argument for a function 
| that has just one argument 
function (arg]) 
function (argl, arg2) 


Two arguments for a function 
that needs two arguments 


Letters that specify the function 


A few functions need three arguments. Each function argument can be a 
constant, a variable, or an expression. 

A function appearing in a BASIC statement is evaluated before any 
operators. Every function in a BASIC statement is reduced to a single 
numeric or string value before any other part of the BASIC statement is 
evaluated. For example, in the following statement the SQR and SIN 
functions are evaluated first: 


10 Ba24.7#(SQR(C)+435)-SINCO,. 24D) | 


Suppose SQR(C) = 6.72 and SIN(0.2 + D) = 0.625. The statement 
on line 10 will first be reduced to 


10 B24. 7#(6, 7245)-8, 625 


This simpler statement is then evaluated. 


Arithmetic Functions 


Here is a list of the arithmetic functions that can be used with VIC 
BASIC. 


INT Converts a floating point argument to its integer 
equivalent by truncation. 

SGN Returns the sign of an argument: +1 for a positive 
argument, —! for a negative argument, 0 for 0 
argument. 

ABS Returns the absolute value of an argument. A 
positive argument does not change; a negative 
argument is converted to its positive equivalent. 

SQR = Computes the square root of the argument. 
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EXP Raises the natural logarithm base e to the power of 
- the argument (e**8). 
LOG _ Returns the natural logarithm of the argument. 


RND Generates a random number. There are some rules 
regarding use of RND; they are described in 
Chapter 5. 


SIN Returns the trigonometric sine of the argument, 
which is treated as a radian quantity. 


COs Returns the trigonometric cosine of the argument, 
which is treated as a radian quantity. 


TAN Returns the trigonometric tangent of the argument, 
which is treated as a radian quantity. 


ATN Returns the trigonometric arctangent of the 
argument, which is treated as a radian quantity. 


The following example uses an arithmetic function: 


10 Ae2.743 
20 BeINTCA)+7 
30 PRINT B 

4@ STOP 
When you execute this program, the result displayed is 9, since the integer 
value of A is 2. As an exercise, change the statement on line 10toan INPUT 
statement. Change line 40 to GOTO 10. Now you can enter a variety of 
values for A and watch the integer function at work. Use this program to 
experiment with various functions. 

Here is a more complex example using arithmetic functions. 


10 INPUT A,B 

2@ IF LOGCAD<@ THEN A=1/A 

30 PRINT SORCADMEXP(B) 

40 GOTO 18 
If you understand logarithms, then as an exercise change the statement on 
line 20, replacing the LOG function with arithmetic functions that perform 
the same operation. 

The argument of a function can be an expression; the expression itself 
may contain functions. For example, change line 30 to the following state- 
ment and rerun the program: 


30 PRINT SQRCA¥EXPCB)+3) 


Now experiment with arithmetic functions by creating PRINT statements 
that make complex use of arithmetic functions. 
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String Functions 


String functions allow you to manipulate string data in a variety of 
ways. You may never need to use some of the arithmetic functions, but you 
must make the effort to learn every string function. _ 

Here is a list of the string functions that can be used with VIC BASIC. 


STRS Converts a number to its equivalent string of text 
characters. 

VAL Converts a string of text characters to their 
equivalent number (if such a conversion is 
possible). 

CHRS Converts an 8-bit binary code to its equivalent 
ASCII character. 

ASC Converts an ASCII character to its 8-bit binary 
equivalent. 

LEN Returns the number of characters contained in a 


text string. 


LEFTS$ Extracts the left part of a text string. Function 
arguments identify the string and its left part. 


RIGHTS Extracts the right part of a text string. Function 
arguments identify the string and its right part. 


MID$ Extracts the middle section of a text string. 
Function arguments identify the string and the 
required mid part. 


String functions let you determine the length of a string, extract por- 
tions of a string, and convert between numeric, ASCII, and string charac- 
ters. These functions take one, two, or three arguments. Here are some 
examples. 


STR$(14) 
LENC"ABC") 
LENCAS+B$> 
LEFT#<ST$, 13 


System Functions 


In the interest of completeness, VIC BASIC system functions are listed 
below. They perform operations which you are unlikely to need until you are 
an experienced programmer. The only system function you are likely to use 
fairly soon is the time-of-day function. If you print many variations of a 

| 
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report (or any other material) in a single day, you may wish to print the time 
of day at the top of the report. That way you can tell the sequence in which 
these reports were generated. 


PEEK _ Fetches the contents of a memory byte. 


TIS$,TI Fetches system time, as maintained by a program 
clock. 


FRE Returns available free space—the number of unused 
read/write memory bytes. 


SYS Transfers to subsystem. 
USR Transfers to user assembly language program. 


User-Defined Functions 


In addition to the many functions that are a standard part of VIC 
BASIC, you can define your own arithmetic functions, providing they are 
not very complicated. User-defined string functions are not allowed. Here is 
an example of a short program that uses a DEF FN (define function) 
statement. 


10 DEFNP<K)=180mx 
2@ INPUT A 
38 PRINT A. FNPCAD 
4@ GOTO 20 


Following the DEF FN entry you can have any valid floating point 
variable name. In this case P was entered, therefore the function name 
becomes FNP. If the variable name were AB, the function name would be 
FNAB. | 

In the DEF FN statement, a single variable, enclosed in brackets, must 
follow FN. This is the only variable name that can appear to the right of the 
equal sign. This variable name is used within the DEF FN statement only; 
you can use it in the body of the program without affecting the function. 
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CHAPTER 


Aavanced BASIC 
Programming 


Artnough the previous chapter covered most of the inner workings of 
VIC BASIC, you will find that there is much more to be learned about 
programming. Whereas Chapter 3 covered the language itself, this chapter 
and those that follow will provide programming techniques and hints that 
will help you get the most out of your VIC. 

Because this chapter concerns itself with more advanced programming, 
program examples and explanations will be longer. You will probably want 
to enter and run each example in order to better understand the concepts 
being discussed. 

Many of the program examples covered in this chapter are designed for 
use in programs you write yourself. Some are written as subroutines, and 
others can be turned into subroutines with minor changes. 


PROGRAMMING WITH STRINGS 


A string can do much more than simply contain data that cannot be 
expressed in numeric form. String operations and functions give you the 
ability to change and manipulate data. 


117 
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Concatenating Strings 


Strings can contain alphabetic or numeric characters or combinations 
of these. When handling strings, it may be useful to link shorter strings 
end-to-end in a chain-like fashion to create one large string. This linking 
process, as you may recall, is called concatenation. 


[snes] 
TE es 


String 4 String | | String2 | String 3 


Suppose, for example, you want to create one large string, Z$, contain- 
ing the alphabet A through Z. To do this, you can link the last character of 
A$, shown below, to the first character of J$, and the last character of J$ to 
the first character of S$. 


zsja|picipje|FiGiuii{s | Ki t|miNjo] piairis|tiulvi|wi xyz 


When a plus sign appears between two numeric expressions, it adds the 
values of the expressions. However, the plus sign will concatenate strings 
when string variables appear on either side of it. 

The same is not true of the minus sign. Strings cannot be separated or 
“de-concatenated” in the same way they are concatenated; they cannot be 
“subtracted” the way they are “added.” 

For instance, to create string X$, containing the contents of J$ and S$ 
from our original strings A$, J$, S$, and Z$, it would be incorrect to type 
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Incorrect 


xS=Z$-AS 


Try it yourself. Enter the values of A$, J$, S$, and X$= Z$— A$ into the 
VIC 20 as shown. The computer will respond with the message 7TYPE 
MISMATCH ERROR IN LINE S50. 


1@ A$="ABCDEFGHI" 

26 J¢="JKLMNOPQR" 

38 S$="STUVHKYZ" 

4Q@ Z2$=AS+J$+S$ 

JG x$=Z2$-A$ ~———_———- Incorrect attempt to get J through Z string 
66 PRINT AS 


RUN 


T7TYTFPE MISMATCH 
ERROR IN Soe 


The correct way to extract part of a larger string is to use string 
functions. With the LEFT$, MID$, and RIGHTS functions, it is possible to 
extract any portion ofa string. In our example, the letters J through Z can be 
extracted as follows: 


99 X#=RIGHT$( 2%, 173 
X$= 
ricuts((A] 8 [C]D[ETF[G]H]1 [3 [k]t[M]NTo] Pla]ris[t [uv 
J {ki uimMiNfo}plalRis|tiuly]wyxfy]z| 
The 17 points to the 17th character from the right (RIGHTS) as the first 


character of the string and includes the rest of the characters to its right. The 
‘string may also be built by concatenating J§$ and S$. 


1 


X$ = 


38 A$eJE+S$ 


xs=[J |k[t[MjN[o}P lair] + 
JL K]LMiNjo} P]QiRi{s[Tfuly [wl xy] zZ 


X$ = 


Numeric Strings 


A numeric string is a string whose contents can be evaluated as a 
number. Numeric strings can be created in two different ways, each yielding 
slightly different results. 
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When numeric variables are assigned to numeric strings using the 
STRS$ function, the sign value preceding the number (blank if positive,—if 
negative) is transferred along with the number. This is shown in the follow- 
ing short program: 

10 AB=12345 

20 Pl= -1#3, 14159265 


30 T$=STRECAB) 
4 NS=STRECPI) 


60 PRINT'TS=";TS 
7@ PRINT "N$=";N$ 


RUN ae left for sign value 


AB= 12345 
T= 12345 
NS=—-3.14159265 


However, if a number is entered enclosed in quotation marks, or if the 
number is entered as a string with an INPUT or READ statement, then the 
numeric string is treated like any other alphabetic or graphic string. No 
blank for a positive sign value is inserted before the number. This is demon- 
strated in the following program: 


19 AB=12345 

26 T$="12345" 

30 READ R$ 

40 DATA 12345 

3@ PRINT "RB=";AB 
60 PRINT" TS$=";T% 
78 PRINT "R$="ZRE 


RUN 

AB= 12345 Space inserted 
T#3212345 No space inserted 
R$-ei 2345 No space inserted 


Concatenate the two numeric strings T$ and Q$ to make a new numeric 
string WS so that the string W§$ contains the ten digits 1,2,3,4,5,6,7,8,9,0. 
Here is one possibility: 


20 G=67890 
(36 TS=STRECTD 
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68 PRINT "Wée= 


RUN 

MWf= 12345 eraeso | 

Why are there blanks before the 1 and 6? The T$ and Q$ string were 
originally positive numeric variables T and Q. When T and Q were con- 


verted from numbers into strings, the blank sign positions were transferred 
along with the numbers. 


b678 9 0 


TEEEE 


Therefore, when T$ and Q§ are concatenated, the new string W$ containsa 
first-digit blank, and an embedded blank before the first digit of QS. 


TS a Q$ = 


ws 
bir f2tstats} [bje|7{efojo} [ofif2}sf{4[s]ofe}7]s]9]o| 


To get rid of the blanks, go back to the separate strings T$ and Q$. 
Look again at the contents of T$ and Q$ above. The only values we want in 
WS are the numbers to the right of the sign value in both T$ and Q$. With 
the LEFT$, MID$, and RIGHTS commands, you can select any character 
or group of characters from within a given string. We want all the characters 
to the right of the first character, which is the sign value (either blank or—). 
T$ = MID$(T$,2) does the trick. 


Before: After: 


TS[b |i} 2])3]4}s} ms[1]2]3}4 [5 


Since the first digit needed is in the second position of the string, the 
VIC 20 is instructed to use only the values starting in the second position. 
We can concatenate T$ and Q$ and drop the leading blanks all in one 
statement. 
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W$ = MIDS(T$,2)+ MID$(Q$,2) 
ee ~e_ 


Accept T$, starting Accept Q$, starting 
with second character with second character 


Concatenate 


T$ and Q$ 


Our example program, amended to eliminate the sign digits, appears as 
follows: 


1@ T=12945 


20 G=67a90 


= fae 


30 Te=STRECTD 


Ts =[b]1}2[3}4{5 


40 Gs=STRECa> 


Qs =[b]6]7/ 8] 9] 0) 


SQ WE=NS( TS, 2>+MI DSC A$, 2) 


ws =TS [112131415] +Q8/6]7]8/9]0| 
ws =[1|2]3]4]5]6{7]8]9/}0 


60 PRINT “be GWE 


RUN 
Wt=123456 7°83 


INPUT AND OUTPUT PROGRAMMING 


It is usually easy for beginning programmers to become acquainted 
with how BASIC calculates numbers. When writing programs that receive 
input from the keyboard and display data on the screen, however, the 
programming becomes trickier. 
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ooo LL 


Nearly every program requires some kind of input from the keyboard. 
If you are the person operating the computer, you can probably put together 
some INPUT statements that get the required data and process it in your 
program. But if someone else is operating the computer, sooner or later the 
wrong key will be pressed or an incorrect entry will be made. Every comput- 
er operator will make mistakes at some time. You should write programs 
that allow for conceivable human errors. 

The same is true for output programming. If you display the results of a 
program with a set of PRINT statements, those results have to be readable 
to the person looking at the display. This does not happen by hacking away 
at program statements until the output looks a little better; you must give it 
some thought while you are writing the program. 

Assume that you want to write a program that inputs names and 
addresses. You could write a program to do this quickly and easily enough. 


1@ REM NAME/ADDRESS PROGRAM 

2@ DIM NM$(20),ADS¢20),CSS, (20), 20$¢ 28) 
21 REM ARRAYS ARE: 

22 REM NM$<(> FOR NAME 

23 REM ADS¢> FOR ADDRESS 

24 REM CS$¢>) FOR CITY AND STATE 
26 REM 2C0#¢> FOR ZIP/POSTAL CODE 
3@ FOR I=1 TO 2@ 

4@ INPUT "NAME: ";NM$<¢ I> 

3@ INPUT "ADDRESS: ";ADS< I> 

66 INPUT "CITY, STATE: "; CS$<1> 

7@ INPUT "ZIP/POSTAL CODE: ";ZC#<I> 
30 NEAT I 

98 END 


Here is an example of how the program would appear on the display. 


Rut 

NAME: 27 NAM THANG 
ADDRESS: 7? 2068 CONSTIT 
WTION DE. 

CITT, STATE: 7? CASTRO WV 
ALLEY. CA. 

V7EsSTRA IGNORED 
<IP’POSTAL CODE: ? 3S1iS91 


= 
MHAME:-? PETER BILT 
ADDRESS: 7? 260 FNOL PL. 


CiTv. STATE: 7? AMARILLO 
» TEXAS 

VExXTRA IGNORED 
ZIP/POSTAL CODE: ? 63543 
mam 
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In this program, the VIC 20’s screen is unformatted. The screen width is 
22 characters; most names and addresses entered would wrap around to the 
line below the original entry because the entry message, or prompt, takes up 
several spaces on the input line. 

While running this program, the person entering names and addresses 
might discover a mistake in a name after pressing RETURN. But the operator 
can’t go back to fix the name when the program is asking for address input. 

Other problems with this program are obvious if you enter and run it. 
The display is not very easy to read. One entry for a name and address 
follows another, all the way down the screen. This kind of clutter will 
increase the possibility of incorrect entries. 

The INPUT statement on line 60 will cause the program to fail if the 
operator puts a comma between the city and state when entering them. The 
city and state have to be entered without a comma between them. Try 
entering a city and state separated by a comma (for example, OAKLAND, 
CALIFORNIA). This is what you get. 


ADDRESS: 7? OAKLAND, CAL 
IFORNIA 
VExXTRA IGNORED 


Recall from Chapter 3 that the INPUT statement allows you to enter 
more than one item of data on a single line, as long as each one 1s separated 
by a comma. Therefore, when OAKLAND, CALIFORNIA was entered, 
VIC BASIC interpreted it as two separate strings when only one string was 
expected—hence the 79EXTRA IGNORED message. In addition to the error 
message, the program stored only OAKLAND and discarded CALIFOR- 
NIA, which was considered “extra” input. 

Allin all, this program is worth the small amount of time that went into 
writing it. 


Screen Layout 


Starting the display at row 0, column 0 (the upper left corner), the 
rightmost column is 21, and the lowest row is 22. The screen layout in this 
grid form isa set of coordinates. A coordinate is the point at which a particular 
column and row intersect on the display. 
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Column 


9 10 11 12 13 14 15 16 17 18 19 20 21 


5 6 7 8 

2 ae a ee 
ae A HW, 
++ | ty 


Row 
fi 
a 
7 
EF 
x 
a 
z 
it 
a 
z 

aaa 
a 
ie 
a 
if 
E 
a 
ll 
a 
il 
az 
a 


221 ft ft | tt tT TT 


A coordinate on the VIC 20 screen is expressed as (row,column). That 
is, the coordinate of the 12th row and 20th column will be expressed as 
(11,19). The first column of the fourth row is (3,0), and so on. (Remember 
that the row and column numbers start at 0, not 1.) 

The coordinates (11,19) would appear at this point on the screen. 


Row 
a 
B 
z 
a 
E 
eS 
a 
a 
a 
id 


al 
22} A A A HH 
727) A A A A RG A DG 
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Creating a Formatted Display 


Keep in mind the maximum possible length of each entry; this is 
especially important when you consider the VIC 20’s limited number of 
columns. For instance, a name with a job title, such as “MAJOR 
SEIDELL—DIR. STRATEGIC OPERATIONS,” will wrap around to the 
next display lines. Allow space for such entries when you format a display. 
Centering prompts on the display will also make it appear more orderly. 

Formatted displays should be used in programs that require a good 
deal of data entry. Three distinguishing features of proper data entry tech- 
niques are a readable, uncluttered display, clear directions to the operator, 
and the ability of the operator to correct mistakes. 


Programming Cursor Movement 


If you encountered the VIC 20’s quote mode while entering program 
statements, you will already know how to program cursor movement. 

If you edit a program statement containing a string constant, VIC 
BASIC will interpret a control key as an actual character within the string 
youare trying to edit. For example, when you press the CRSR UP/ DOWN key 
between the quotes in a string, it will appear as an inverse-video Q on the 
screen. Instead of moving the cursor up or down one line as you intended, 
VIC BASIC inserted the CRSR UP/ DOWN key into the string. If you print the 
string containing the cursor control character, the cursor will move down. 

The statement 


1018 R$=" 


ATRTATATATATOTIO DM IMIR 


sets up a string of 22 CRSR DOWN characters which, when printed by a 
PRINT statement, will move the cursor down 22 rows. Likewise, a string 
containing 21 CRSR/RIGHT characters will move the cursor to the right 21 
spaces. 


1020 C$="SRRRRDRRRRORRPSRRPRDBI" 


These strings containing the cursor control characters will allow you to 
display a character anywhere on the display screen. 
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A CURSOR MOVEMENT SUBROUTINE 


With three strings containing the cursor control characters to move to 
the home position, down, and to the right, it is possible to move to any 
coordinate position on the VIC 20 display. How? 

The coordinates of the upper left corner of the screen are (0,0). You can 
move the cursor anywhere by printing a string containing the CLR/ HOME 
control key, followed by strings that move the cursor down and to the right. 

Here is an example. 


19 REM PROGRAMMED CURSOR MOVEMENT 

29 PRINT "(}":REM CLEAR THE SCREEN 

30 RA=20:Cxz24:GOSUB 1600 

4@ PRINT "IGNORANCE IS BLISS" 

538 GOTO S¢ 
1080 REM CURSOR POSITIONING SUBROUTINE 
1Q1G REx" MOTT" 
1626 C$="IRPRRDRRRRRRRRRPRERERI" 
1838 PRINT "3", :REM MOVE CURSOR TO (9.8) 
1046 PRINT LEFTS<R%,RA;LEFTS(C$,CZ); 
195@ RETURN 


Line 20 clears the screen, removing any old text from the display. (This 
has nothing to do with cursor positioning; it is just “housekeeping” to make 
a cleaner display.) The integer variables R% and C% on line 30 stand for 
“row” and “column.” The three statements combined on line 30 set the row 
(20) and the column (4), followed by a GOSUB that moves the cursor to the 
coordinates (20,4). 

You may not understand why the cursor must go to (0,0) first. In order 
for the program to move the cursor to the correct coordinates, it has to know 
how many rows and columns the cursor is from the coordinates you 
selected. The easiest and most efficient way to do this is to move to (0,0) first, 
because the program will always know exactly how many times the cursor 
must move in order to reach the coordinates (in this case, 20 rows down and 
4 columns right). 

Let’s take the cursor movement subroutine apart line by line, starting 
with lines 1010 and 1020. These two lines are assignment statements that set 
up (initialize) the cursor movement strings. R$ contains 22 CRSR DOWN 
control characters; C$ contains 21 CRSR RIGHT characters. 

Line 1030 prints the CLR/ HOME character, thus positioning the cursor 
at (0,0). Line 1040 does the real work: It uses the LEFT$ string function to 
print the first 20 characters in R§, then the first 10 characters in C$. 
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This cursor movement subroutine will be an integral part of creating 
and using formatted displays. 


The CHR$ Function: Programming 
Characters in ASCII 


If you cannot press a key to include a character within a text string, you 
can still select the character by using its ASCII value. 

The CHR$ function translates an ASCII code number into its charac- 
ter equivalent. This is the format of the CHR§$ function. 


PRINT CHR$(xx) 


ASCII number from 0 to 255 of 
desired character or control 
To obtain the ASCII code for a character, refer to Appendix B. Scan 

the columns until you find the desired character or cursor control, then note 
the corresponding ASCII code number. Insert this number between the two 
parentheses of the CHR$ function. For example, to create the symbol $ 
from its ASCII code, look up ASCII code for $ in Appendix B. You will 
notice that $ has two ASCII values: 36 and 100. Which value should you use? 
Either number works. But for good programming technique, once you select 
one number over the other, use that number consistently throughout the 
program. Insert 36 into the CHR$ function as follows: 


PRINT CHRS¢ 362 

Try displaying this character ($) in immediate mode: 
PRIWT CHRE¢36) 
$ 


Now try displaying ASCII code 100. 
ant. CHRE< 188) 


The result is the same. Experiment in immediate mode using any ASCII 


code from 0 to 255. 
You can use the CHR$§ function in a PRINT statement as follows: 


1@ PRINT CHRE¢36) 5 CHRS¢42); CHRSC 166) 


RUN 
SHE 
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The CHR$ function lets you include otherwise unavailable characters such 
as RETURN, INST/DEL, and the quote character (“) ina PRINT statement’s 
parameters. 

You can also use the CHR$ function to check for special characters 
such as RETURN and INST/DEL. Suppose a program must check character 
input at the keyboard, looking for a RETURN key. You could check for a 
RETURN (which has an ASCII code of 13) as follows: 


16 GET AS: IF *S<C>CHRESC13) THEN 18 


This test would be impossible if you tried to put RETURN between quotation 
marks. 


29 IF K#¢>" = THEN 18 


Impossible 


This does not work, because pressing the RETURN key following the first set 
of quotation marks automatically moves the cursor to the next line. 


26 IF X$<>" «~——— Press RETURN key 
a 


If you attempt to program the INST/DEL or the RETURN key, you will 
encounter some surprising results. 

The INSERT key is programmable. Inside the quotation marks of a 
PRINT statement, it displays as #8. 

If you try to program the DELETE key ina PRINT statement you will 
merely erase the previous character, unless the DELETE key occurs within a 
sequence of inserted characters. 

The DELETE key may be entered following an INSERT, but doing so is 
not very useful. The only common use of this feature is in concealing 
program lines during a listing (hiding answers for a test, for instance). 
Hidden data can be easily rediscovered in several ways, however, so using 
DELETE characters within program lines is not advisable. 

The RETURN character in a PRINT statement will immediately move 
the cursor out of the statement and to the next line. 
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Data Entry (Input) 


Data entry should be programmed in functional units. A mailing list 
program, for example, requires names and addresses to be entered as data. 
You should treat each entire name and address as a single functional unit 
rather than separate data items. In other words, your program should ask 
for the name and address, allowing the operator to enter all of this informa- 
tion and then change any part of it. When the operator is satisfied that the 
name and address are correct, the program should process the entire name 
and address. The program should then ask for the next name and address. 

It is bad programming practice to break data input into its smallest 
parts. Ina mailing list program, for example, it would be bad programming 
practice to ask for just the name, process this data as soon as it is entered, 
and then ask for each line of the address, treating each piece of the name and 
address as a separate functional unit. This approach makes programs diffi- 
cult to change and also renders them less readable. 

The goal of any data entry program should be to make it easy for an 
operator to spot errors and to give the operator as many chances as possible 
to fix them. 


PROMPTING MESSAGES 


Any program that requires data entry should prompt the operator by 
asking questions. Questions are usually displayed on a single line and 
require a simple response such as “yes” or “no.” For example, a prompt 
message such as ANY CHANGES (Y OR N)? would clearly indicate the 
question and the available choices. 

An operator responds to this message by pressing the Y or N key. Good 
programming practice dictates that entries other than Y or N not be 
accepted. If the operator replies Y to the ANY CHANGES prompt, another 
prompt will display, suchas WHAT ENTRY LINE TO CHANGE (1-6)?. In 
this case, one of six entry lines could be changed; all the operator needs to do 
is enter the number corresponding to the line that was entered in error. Of 
course, with this approach each entry line on the display should have an 
identifying number. 

This type of data entry should be written in subroutines, so the main 
program is not clogged up with prompting messages. Also, because a limited 
number of choices is allowed, a subroutine could contain the logic necessary 
to check the entry against permitted responses. 
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This has two implications. 


1. The subroutine must receive parameters from the calling program. 
For example, if a message asks the operator to enter a number, the 
calling program should pass the minimum and maximum allowed 
numbers to the subroutine as parameters. 


2. The subroutine must return the operator’s response to the calling 
program. This variable may be a character (for example, Y or N), a 
word (such as yes or no), or a number. 


Asubroutine that prompts fora reply of Y for “yes” or N for “no” uses a 
PRINT statement to ask the question, followed by a GET to receive a 
one-character response. Since you may have many questions in a program 
which require a response of “yes” or “no,” the subroutine should also allow 
for a prompt to be passed to the subroutine from the main program in a 
string variable. Here are the necessary statements. 


300@ REM ASK A QUESTION AND RETURN A RESPONSE OF Y OR N IN YN 
3018 PRINT "ry" 

3020 PRINT "DO YOU WANT TO MAKE ANY CHANGES? "; 

3030 GET YN$: IF YN$<>"N" AND YN$<>"Y" THEN 3030 

3040 PRINT YN$ 

3658 RETURN 


The string variable QU$ must be set in the program that calls the 
subroutine. The subroutine is generalized; that is, it displays any prompt. 
sent to it by the main program. The response is returned to the main 
program in the string variable YN$. 

Now consider dialog that allows an operator to enter a number. 
Assume that the main program passes to the subroutine the lowest allowable 
numeric entry in LO% and the highest in HI%. Once the operator enters a 
number within range, the subroutine will return the entered number in 
NM%. Here is the subroutine that gets the keyboard entry, checks it against 
LO% and HI% values, and then passes it back to the main program in 
NM%. 


9500 REM ASK FOR A NUMERIC SELECTION 

9510 REM RETURN THE NUMBER IN NM¢ 

3520 REM REM NMZ MUST BE <= HI% AND >= LOZ 
3539 PRINT GUS; 
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rr 
—_—_- rrr — 


3540 GET C$: IF C$="" THEN 3340 

3558 NMZ=VALCC$) 

3960 IF NMZ<LOZ OR NMZDHIZ THEN 3540 
3578 PRINT C$ 

3580 RETURN 


Write a short program that sets values for HI% and LO%, and then 
goes to subroutine 3500. Add the previous subroutine and run it. 

Can you change the subroutine so that it accepts two-digit input? Try to 
write this modified program for yourself. If you cannot do it, wait until the 
next section, where you will find the necessary subroutine in the program 
that controls the input of a date. 


ENTERING A VALID DATE 


Most programs at some point need relatively simple data input—more 
than a simple yes or no, but less than a full screen display. Consider a date. 

You must be careful with such apparently simple data entry. In all 
likelihood, the date will be just one item in a data entry sequence. By 
carefully designing data entry for each small item, you can avoid having to 
restart a long data entry sequence whenever the operator messes up a single 
entry. 

The date is to be entered as follows: 


| tL Year 
Separator 
Day of the month 
Separator 


Month 


The dashes separating the month, day, and year could be slashes or any 
other appropriate character. In Europe, the day of the month precedes the 
month. 

You should program data entry so that it is pleasing to the operator’s 
eye. The operator should be able to see immediately where data is to be 
entered, what type of data is required, and how far the data entry process 
has proceeded. A good way of showing where data is to be entered is to 
display the entry line in inverse video. For example, the program that asks 
for a date might create the following display: 
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Cursor flashing at entry 
character position 


-W-W 


—_w 


Data must be entered into these 
character positions 


You can create such a display with the following statement: 


10 PRINT” <CLR> <CRSR! > <CRSR! >”;TAB(20);” <<RVS ON>bb 
<RVS OFF> — <RVS ON> bb <RVS OFF> — <RVS ON> 
bb <RVS OFF>”,;CHRS(13);” <CRSRt >”; TAB(20); 


b represents a space code 


The PRINT statement above includes cursor controls that position the date 
entry to begin at column 6 in row 3. The PRINT statement also clears the 
screen so that no residual display surrounds the request for a date. After 
displaying the data entry line, the PRINT statement moves the cursor back 
to the first position of the entry line by using the RETURN and CRSR UP 
characters, followed by a TAB to position 6 on the current display line. 

Try using an INPUT statement to receive entry of the month. This can 
be done as follows: 


26 INPUT M$; 


Enter statements in lines 10 and 20, as illustrated above, and execute 
them. The INPUT statement will not work. Aside from the fact that a 
question mark displaces the first entry line character, the INPUT statement 
picks up the rest of the line following the question mark. Unless you 
overwrite the entire date entry display—which requires entering a very large 
number—you will get an error message each time you press the RETURN 
key, because VIC BASIC is accepting everything on the line as if it were a 
keyboard entry. 

This is an occasion to use the GET statement. 


i1@ PRINT "(ed Sa @G BU SCHRSCIS EN: 
26 GET C$:IF C$="" THEN 2a 

30 PRINT C4; ‘MMS=CS 

4@ GET C$:IF C$="" THEN 49 

50 PRINT C$; ‘MMS=MMS+C$ 

68 STOP 


These statements accept two-digit input. The input displays in the first part 
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of the date. The two-digit input needs no RETURN or other terminating 
character. The program automatically terminates the data entry after two 
characters are entered. 

Two-digit entries are needed for the month, the day, and the year. 
Rather than repeating statements in lines 20 through 50, you could put these 
statements into a subroutine and branch to it three times, as follows: 


1@ PRINT "Td S39 S-9 M"CHRSC1395 "3"; 
26 GOSUB 1400: MM$=TCS:PRINTTABC3> 

38 GOSUB 180@:DDS=TC$:PRINTTABC6) 

46 GOSUB19G0: Y"s=TCs 

98 STOP 

1608 REM TWO CHARACTER INPUT SUBROUTINE 
1@19 GET C#:IF C$="" THEN 1019 

1026 PRINT C$; 

1638 GET CC#:IF CC$="" THEN 1430 

1946 PRINT COs; 

1026 TCS=C$+CC$ 

1866 RETURN 


The variables MM$, DD$, and YY$ hold the month, day, and year entries, 
respectively. Each entry is held as a two-character string. You should empty 
the input buffer before accepting the first input; otherwise, any prior charac- 
ters in the input buffer will be read by the first GET statement in the 
two-character input subroutine. You need to empty the buffer only once 
before the first GET statement. 

There are two ways to help the operator recover from errors while 
entering a date. 


* The program can automatically test for valid month, day, and year 
entries. 


- The operator can restart the data entry by pressing a specific key. 


The program can check that the month lies between 01 and 12. The 
program will not bother with leap years, but will check for the maximum 
number of days in the specified month. Any year from 00 through 99 is 
allowed. Any invalid entry restarts the entire date entry sequence. Also, if 
the operator presses the RETURN key, the entire date entry sequence restarts. 

The final date entry program now appears in Figure 4-1. 

Notice that the date is built up in the 8-character string DT$ as month, 
day, and year are entered. 
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5S REM ROUTINE TO ACCEPT AND VERIFY A DATE 
1@ PRINT "Mist So SO MNCHREC 130: 
5@ GOSUB 1@8@:REM GET MONTH 

6Q IF CS=CHRSC12) OR CCS=CHRE(139 THEN 10 
78 DT$=TCS: PRINT TABCS) 

6@ REM CHECK FOR VALID MONTH 

98 MZ=VALCTCS? 

95 IF Madi OR Maé>12 THEN 18 

19@ IF M401 OR Ma>i2 THEN 18 

11@ REM GET HUMBER OF DAYS IN MONTH 

126 De=31 

138 IF Mé=2 THEM Dax=28 

140 IF M#=4 OR M¥=6 OR Ma=9 OR Mé=11 THEN Da=og 
15@ GOSUB 1080: REM GET DAY 

16G IF CS$=CHR$<(13> OR CCS=CHREC13) THEN 16 
176 DTS=DT$+"—"+TCS: PRINT TABCE) 

198 REM CHECK FOR VALID DAY 

20@ IF YALCTC#)<1 OR YALCTC$3>D% THEN 18 
218 GOSUB 19@@: REM GET YEAR 

220 DT$=DT$+"~"+TCS$ 

238 IF C$=CHRS(13) OR CCS=CHRS(132 THEN 18 
2489 REM CHECK FOR VALID YEAR 

278 STOP 

i1@@6 REM THO CHARACTER INPUT SUBROUTINE 
1916 GET C$: IF C#="" THEN 1618 

1811 IFVAL<BS)>18@ THEN PRINT"T" 

1915 IF C#sCHRS(13> THEN 1456 

igié IF C${"G" OR C#>"S" THEN 1018 

1@28 PRINT C$; 

1938 GET CC$:IF CC$="" THEN 1936 

1935. IF CC$=CHR$¢13> THEN 1038 

1936 IF CCO$<"@" OR CC#>"9" THEN 1830 

1944 PRINT CLS; 

1956 TC#=CE+C0$ 

1068 RETURN 


FiGure 4-4. Simple program to enter and verify a date 
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Three questions are asked of data as it is entered. 


* Is the character a RETURN? 
- If the character is not a RETURN, is it a valid digit? 


* Is the two-character cornbination a valid month for the first entry, a 
valid day for the second entry, or a valid year for the third entry? 


The RETURN has been selected as an abort (restart) character. By 
replacing CHR$(13) in lines 60, 160, 230, and 1035, you can select any other 
abort character. When the operator presses the selected abort key, the entire 
date entry sequence restarts. You must check for the abort character in the 
two-character input subroutine (at line 1035), since you want to abort after 
the first or second digit has been entered. 

The main program also checks for an abort character in order to branch 
back to the statement in line 10 and restart the entire date entry sequence. 
You could branch out of the two-character input subroutine and to the 
statement in line 10 in the calling program, thereby eliminating the abort 
character test in the calling program, but this is a bad practice. Every 
subroutine should be treated as a module, with specified entry point(s) and 

- Standard subroutine return points. 

Using GOTO to branch between the subroutine and the calling pro- 
gram is likely to be a source of programming errors. If you branch out of the 
subroutine and back to the calling program without going through the 
RETURN, you are making yourself vulnerable to all kinds of subtle errors 
that you will not understand until you are an experienced programmer. 

Program logic that tests for nondigit characters can reside entirely in 
the two-character input subroutine. This program ignores nondigit charac- 
ters. Statements in lines 1016 and 1036 test for nondigit characters by 
comparing the ASCII value of the input character and the ASCII values for 
the allowed numeric digits. 

Logic to check for valid month, day, and year must exist within the 
calling program since each of these 2-character values has different allowed 
limits. 

The statement in line 100 tests for a valid month. Statements in lines 
120, 130, and 140 compute the maximum allowed day for the month 
entered. The statement in line 200 checks for a valid day. The check for a 
valid year in line 260 is very simple. 

A numeric equivalent of the month is generated in line 90, but not for 
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the day or the year. This is because the day and year are not used very often, 
but the month is used in lines 90 through 140. You will save both memory 
and execution time by using a numeric representation of the month. 

It does take more time to write a good data entry program that checks 
for valid data input, allowing the operator to restart at any time. Is the extra 
time worthwhile? By all means, yes. You will write a program once, while an 
operator may have to run the program hundreds or thousands of times. 
Thus, by spending extra programming time once, you may save operators 
hundreds or thousands of delays. 


Formatted Data Input 


The best way of handling multi-item data entry is to display a form and 
then fill it in as data is entered. Consider the formatted name-and-address 
display earlier in this chapter. 


ENTER NAME AND ADDRESS 


ia HAME : ee 
mm STREET : 
ma Cir: 
=4 STATE: 
= <IP: 


= PHONE - 


Each entry line has a corresponding number. The form displays the number 

in inverse video. The operator enters data starting with item | and ending 

with item 6. The operator can then change any specific data entry line. 
The following statements clear the screen and display the initial form: 


18 REM NAME AND ADDRESS DATA ENTRY 
20 REM DISPLAY THE DATA ENTRY 

3@ PRINT "SHENTER NAME AND ADDRESS" 
40 PRINT "Si NAME:" 

5Q@ PRINT "s2@ STREET: " 

68 PRINT "#38 CITyY:" 

7@ PRINT "348 STATE: " 

88 PRINT "S58 2IP:" 

98 PRINT "S6M@ PHONE:" 


The program listed in Figure 4-2 is a more complete version of the name- 
and-address program. It uses the display format shown above. Key in the 
program if you wish. It will help you gain a better understanding of the 
program’s structure and how it works as it is explained line by line. 

In order to format the display itself, lines 10 through 90 print each entry 


Downloaded from www.Manualslib.com manuals search engine 


138 The VIC 20 User Guide 


REM NAME AND ADDRESS DATA ENTRY 
29 REM DISPLAY THE DATA ENTRY 
38 PRINT "CENTER NAME AND ADDRESS" 

49 PRINT "@i@ WNAME:" 

oS PRINT "2M STREET: " 

66 PRINT "3M CITY: " 

70 PRINT "S4@ STATE:" 

8@ PRINT "6m ZAP” 

98 PRINT "S68 PHONE: " 

164 EDITINGZ=6 

266 REM GET 12 CHARACTER NAME 

219 Ra=3:C“=39:LNZ=12:GOSUB saad 

228 NAS=CC$ 

236 IF EDITING? THEN Sea 

228 REM GET STREET 

268 Rv=4:CZ89:LNK=12:GOSUB saa 

278 SRI=CCE 

288 IF EDITING THEN 5ag 

308 REM GET 12 CHARACTER CITY 

O18 Re=5:Cx=9:LNK=12:GOSUB Sane 

326 CI$=CC¢ 

338 IF EDITING: THEN 3a@ 

359 REM GET 12 CHARACTER STATE 

368 Ra=6'Cas9:LNA=12:GOSUB 8aga 

37@ IF EDITINGA THEN 5@g 

498 REM GET 5 CHARACTER ZIP CODE 

410 Rear: Ce=9:LNK=S:GOSUB 3800 

426 ZIf=CC$ 

438 IF EDITING” THEN See 

450 REM GET PHONE NUMBER 

460 Ra=8'Cx=9:LNK=12‘GOSUB 8ag0 

478 PH$=CC$ 

J66 REM ASK IF ANY CHANGES ARE TO BE MADE 
Sif EDITINGZ=~1 

328 R“=18‘Cx=@:GOSUB 9008 

538 QUE="ANY CHANGES? it" 

349 GOSLIB 309@:REM GET "Y" OR "WH" 

308 IF C$="N" THEN PRINT "TJ"; ‘END 

368 REM ASK WHICH LINES NEED CHANGING 

278 QUS="WHICH LINE (1-697: aI" 

388 Ra=1l2:LOv=1:HIas6 

394 GOSUB 3586 

680 ON NMA GOTO 208. 250,300, 350,400,450 
619 GOTO 528 

3860 REM ASK A QUESTION AND RETURN A RESPONSE OF Y OR N IN C$ 
3828 PRINT OUs; 

3836 GOSUB 5@80:REM GET A CHARACTER 

3849 IF C&C>""" AND C$<>"N" THEN 3038 
3856 PRINT C$; 


Ficure 4-2. Name and address entry program 
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3066 RETURN 

3580 REM ASK FOR A NUMERIC SELECTION 

9516 REM RETURN SELECTION IN NM 

9526 REM NMZ MUST BE LESS THAN HI~ AND MORE THAN LOn 
353@ REM CALLING PROGRAM MUST SET HIZ,LO% AND QUS, THE QUESTION ASKED 
3548 GOSUB 9800:REM POSITION THE CURSOR 

3558 PRINT BUS; 

3568 GOSUB 5880 : REM GET A CHARACTER 

3578 NM“=VAL CCS) 

3580 IF NMZ<LOX OR NMASHI“ THEN 356d 

3598 PRINT C4; 

3688 RETURN 

5000 REM DISPLAY FLASHING CURSOR AND GET CHARACTER 
3816 FOR {=@ TO 68 

3828 IF I=@ THEN PRINT" S SHI", 

5830 IF I=38 THEN PRINT" Bf"; 

3049 GET C$: IF C$<>"" THEN I=68 

3858 NEXT I 

5869 IF C$="" THEN 5a00 

5076 RETURN 

6898 REM INPUT SUBROUTINE 

6020 SP$e=" ":REM 22 SPACES 
6848 GOSUB 3080 

8860 PRINT" 8" > LEFTS(SP$.LNZ35 "8"; 

6070 GOSUB 9880:REM POSITION THE CURSOR 

$199 €cs="" 

6110 GET C$: IF C$="" THEN 8116 

8120 IF CS=CHRE(139 THEN 8206 

8130 IF C$=CHR$(20) THEN 8160 

8140 IF LENCCOS)<LNA THEN CCOS=CCE+CS: PRINT CS; 
8158 GOTO 8110 

3160 IF CC$="" THEN 8116 

8170 PRINT"#is SI"; 

8175 REM DELETE CHARACTER FROM STRING CCS 

8108 CCS=LEFTS(CCS,LENCCCS)-1> 

8199 GOTO 8118 

6209 IF LNZ>LENCCCS) THEN PRINT LEFT$<SP%,LNAZ-LENCCC$> >; 
6218 RETURN 

9684 REM —- POSITIONING SUBROUTINE 


9620 C$=" INODBBDDRBRBBRDRDBORDI" 

9639 PRINT"S"; :REM MOVE CURSOR TO ¢@,8) 
9640 PRINT LEFTS<(R$,. R29 ;LEFTSCCS,.CA); 
98350 RETURN 

9308 GOSUB 308Q:PRINT C$; ‘GOTO 9500 


FIGURE 4-2. Name and address entry program (continued) 
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line. The RVS ON control character precedes each PRINT statement line 
number, and the RVS OFF character follows it. These characters do not 
display anything by themselves, and they do not take up space on the - 
display. They do change the display mode; that is, any characters following 
the RVS ON will display in inverse video. Likewise, any characters following 
the RVS OFF will display in normal video. 


THE DATA ENTRY SEQUENCE 


Once the entry lines are displayed, the entries start at the NAME line. 
The program displays a black bar, showing where the entry should start, as 
well as how long the entry will be. 

The operator can back up on the entry line by pressing the INST/DEL 
key to correct any typing errors. When the entry is complete, the operator 
presses RETURN and the program goes to the next entry line. 

This data entry sequence translates into the following BASIC statements: 


208 REM GET 12 CHARACTER NAME 
218 Raw3:Cx=9:LNZ=12:60SUB 8000 
228 NAS=CCE 

230 IF EDITINGZ THEN 309 

258 REM GET STREET | 

260 R224: Cx=9:LN4=12:GOSUB 8808 
278 SRS=CC$ 

288 IF EDITING“ THEN 52aa 

980 REM GET 12 CHARACTER CITY 
318 Ra=35'Cr=5'LNA=12:GOSUB 8808 
329 CI$=CCs 

338 IF EDITING“ THEN 5@0 

358 REM GET 12 CHARACTER STATE 
369 R“=6'Cr=9'LNx=12:GOSUB 8040 
376 IF EDITINGZ THEN 5@@ 

400 REM GET 5 CHARACTER ZIP CODE 
419 Ra=?:Ce=9:LNA=5:GOSUB 80a0 
426 ZIS=CCF 

43@ IF EDITINGZ THEN 5a@ 

45@ REM GET PHONE NUMBER 

460 R“x=8:Cx=9:LNZ=12:GOSUB 8000 
478 PH$=CC¢ 


There is some uniformity to these statements, which are in six separate 
groups. The groups start at lines 200, 250, 300, 350, 400, and 450, each cor- 
responding to an entry the operator is to make. Each group begins with a 
REM statement. 
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Lines 200 through 230 have the same structure as any of the other five 
statement groups. 


200 REM GET 12 CHARACTER NAME 
210 R%=3:CH=9°LNK=12:GOSUB 880d 
220 NAS=CCS 

238 IF EDITINGZ THEN 500 


Line 210 assigns values to variables and peforms a GOSUB to line 8000. 
Line 8000 is a data entry subroutine; it uses variables R% and C% to specify 
where on the screen the data entry will occur. LN% contains the maximum 
length of the entry. Line 220 assigns the entered data to NAS, the string 
variable to hold the name. 

Line 230 is a logical test which you can ignore for now; it will be 
explained shortly. 

Now check the group starting at line 250. Although the values assigned to 
R%, C%, and LN% may differ and line 270 is not exactly the same, the 
structure of lines 250-280 is identical to that of lines 200-270. This is the case 
for all of the other statement groups. 


EDITING DATA ENTRY LINES 


Once all six lines are entered, the program displays ANY CHANGES? 
and waits for a response of Y or N. If the response is N, the program will 
clear the screen and end. If the response is Y, the program will ask which 
entry line needs to be changed. At this point, the operator can change any 
entry lines at random until all lines are correct. 

The following lines of the data entry program in Figure 4-2 perform 
these steps: 3 


500 REM ASK IF ANY CHANGES ARE TO BE MADE 
51@ EDITINGZ=~1 

§20 RX@10'Cu=6:GOSUB 9000 

538 GUS="ANY CHANGES? if" 

546 GOSUB 3@0@:REM GET "Y" OR "N® 

550 IF C$="N" THEN PRINT "J"; END 

56@ REM ASK WHICH LINES NEED CHANGING 
57@ QUS="WHICH LINE (1-697: TP 

580 R4=12:LO“@1 ‘HIns6 

596 GOSUB 3580 

608 ON NMZ GOTO 208,250, 300. 958. 408, 458 
618 GOTO 526 


Line 510 is of special interest because it “switches on” the editing 
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process. Back at line 100, the integer variable EDITING% was set to 0. At 
the end of each statement group, the logical test of EDITING% would cause 
program logic to fall through to the next group. Now that EDITINGS% is 
nonzero (equal to —1), program logic can randomly access each statement 
group, thus allowing each entry line to be changed in a random fashion. 

Lines 520 through 540 call the “yes-or-no” subroutine; if the operator 
enters N in response to ANY CHANGES?, the program ends. If the opera- 
tor enters Y, program logic continues. 

Lines 570 and 580 set variables for the numeric entry subroutine, and 
line 590 calls it. The subroutine returns the number of the entry line to 
change (1, 2, 3, 4, 5, or 6) in the integer variable NM%, and program logic 
proceeds to line 600. 

The ON-GOTO statement on line 600 uses the number entered in NM% 
to change one of the six name-and-address lines by branching back to any of 
the six statement groups. EDITING% plays a critical part here, because the 
logical test at the end of each statement group will now cause a branch 
directly to line 500, which is the start of the ANY CHANGES? routine. If 
EDITING% was zero, this would not happen. Program logic would plod 
along to the next entry line unconditionally. Try changing line 510 to 
EDITING% = 0, and note the difference in operation. 


DATA ENTRY SUBROUTINES 


There are six subroutines in this program. Each subroutine has a 
specific function. One of the subroutines is not used by the main program, 
but is called by the other subroutines. 

First look at the subroutine starting at line 3000 and ending at line 3060. 
This asks a question that requires a Y or N response. The subroutine 
displays the question which was passed to it in string variable QU. It calls 
the subroutine at line 5000, which in turn gets a character from the key- 
board. If the character is Y or N, the subroutine ends and returns the 
response in C$. 


3888 REM ASK A QUESTION AND RETURN A RESPONSE OF Y OR N IN C$ 
3020 PRINT QU$; 

3038 GOSUB 5@00:REM GET A CHARACTER 

3840 IF C$<>"Y" AND C#<>"N" THEN 3930 

3856 PRINT C$; 

3868 RETURN 
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But why use a subroutine to get a character when a GET statement 
would suffice? 

A GET statement checks the keyboard for a keypress, but it gives no 
clear sign to the operator that a character should be entered. The subroutine 
at line 5000 flashes the cursor while waiting for a keypress, thus making it 
more obvious that the VIC is waiting for some kind of entry. Besides, the 
get-character subroutine is used by another subroutine in this program. It 
makes sense to relegate this low-level function to another subroutine. 

The subroutine starting at line 3500 and ending at line 3600 asks fora 
single-digit numeric entry. In the name-and-address program, the only 
numeric entry is the number of the line to change, which ranges from | to 6. 


3500 REM ASK FOR A NUMERIC SELECTION 

3510 REM RETURN SELECTION IN NM« 

3520 REM NMZ MUST BE LESS THAN HI% AND MORE THAN LO« 
3530 REM CALLING PROGRAM MUST SET HIZ.LO% AND QU$, THE QUESTION ASKED 
3540 GOSUB 9080:REM POSITION THE CURSOR 

3550 PRINT GUS; 

3560 GOSUB 5800 : REM GET A CHARACTER 

3578 NMZ=VAL CCS) 

$588 IF NMZ<LOZ OR NMZDHIZ THEN 396d 

3598 PRINT C$; 

3600 RETURN 


This subroutine must have several variables set by the main program 
before it is called. First, the maximum and minimum allowable values of the 
entry should be in integer variables HI% and LO%. Second, the subroutine 
displays a question to the operator contained in QU$, which also has to be 
set before calling the subroutine. 

This subroutine positions the cursor to a given screen position, and 
the coordinates of that position need to be passed to the subroutine in the 
variables R% and C%. Line 3540 calls the subroutine at line 9000, which 
positions the cursor. Line 3550 displays the prompt, and line 3560 calls the 
“set keyboard entry” subroutine. 

The subroutine at line 5000 needs no parameters. It simulates a flashing 
cursor while waiting for a keyboard entry. A FOR-NEXT statement on line 
5010 starts a timing loop that displays an inverse-video space for the first 30 
times through the loop. Once the index variable I reaches 30, the statement 
on line 5030 erases the cursor. During this time, the subroutine is constantly 
checking the keyboard for an entry. If a key is pressed, the statement on line 
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5040 terminates the loop by setting I to 60, and the subroutine ends, passing 
back the entered character in C$. 


3062 REM DISPLAY FLASHING CURSOR AND GET CHARACTER 
0018 FOR I=@ TO 68 

5826 IF l@0 THEN PRINTS ST"; 

9636 IF [838 THEN PRINT" @f'; 

5046 GET C$: IF CS$<>"" THEN I=6@ 

5038 NEXT I 

3869 IF C$="" THEN 5000 

3878 RETURN 


The subroutine starting at line 8000 and ending at line 8210 is designed 
to position the cursor and accept a string entry of a specified length. This 
subroutine therefore needs to know the screen coordinates (row and 
column) of the entry and the length of the entry before it can begin. 

LN% contains the length of the entry in characters. R% and C% contain 
the row and column of the entry. A variable SP$ is assigned 22 spaces and is 
used at two points in the subroutine. 

Next the cursor-positioning subroutine is called by the GOSUB state- 
ment on line 8040. Line 8060 prints the RVS ON character, followed by a 
block of inverse-video spaces that show the length of the entry to the opera- 
tor, and then the RVS OFF character. 


6808 REM INPUT SUBROUTINE 

6829 SPs=" | "(REM 22 SPACES 
6846 GOSUB 9000 

8860 PRINT" &" |LEFTS(SP$,LNZ>; "8"; 

6876 GOSUB 9860:REM POSITION THE CURSOR 

6106 CCg=a"" 

8118 GET C$: IF C$="" THEN 8118 

8120 IF CS=CHR$(13> THEN 8280 

B130 IF C$=CHR$(20) THEN 8160 

8140 IF LENCCCS><LNZ THEN CC$=CC$+CS:PRINT CS; 
8158 GOTO 8110 

8160 IF CC$="" THEN 8118 

8170 PRINT"SiS SBI"; 

8175 REM DELETE CHARACTER FROM STRING CC$ 

8186 CCS@LEFTS(CC#,LENCCCS>-1> 

8198 GOTO 8110 

6200 IF LNZ>LENCCC$> THEN PRINT LEFTS(SP$,LN/-LENCCCS) 
8210 RETURN 


Statements on lines 8100 through 8150 accept a character from the 
keyboard. If the character entered is RETURN—that is, equal to CHR$(13)—the 
entry is complete. A branch to line 8200 occurs. Any part of the black bar on 
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the entry line disappears, and the subroutine returns with the full entry 
contained in CC$. The subroutine also checks for the INST/DEL key; if this 
key was pressed, the subroutine branches to line 8170. 

If the character entered is neither RETURN nor INST/DEL, then the 
character entered in C$ is concatenated to CC$, which contains all of the 
characters entered so far. Notice the logical test on this line. 


8140 IF LENCCCS><LNA% THEN CC$=CC$+C$:PRINT CS; 


If the length of CC$ is not yet equal to the maximum number of 
characters allowed for the entry (in LN%), then C$ is tacked onto the end of 
CC$, the character entered is displayed on the screen, and a branch back to 
the GET statement occurs. If the maximum entry length was reached, the 
character in C§ is simply ignored. 

What do the statements on lines 8160 through 8190 do? A branch 
to these statements occurs if the operator presss the INST/DEL key. 

If the operator presss INST/DEL but the entry string CC$ is empty, then 
no characters need to be deleted. The IF-THEN statement on line 8160 
checks for this condition and branches back to line 8110 if no characters 
need to be deleted. Otherwise, program logic continues with line 8170. 

Line 8170 prints the CRSR LEFT and RVS ON characters to position the 
cursor on the last character entered, a space (in inverse video) that wipes out 
that character, then a RVS OFF and a CRSR LEFT. What all this does is move 
left, delete the last character entered, and move left once again to the space. 

Line 8180 deletes the last character of CC$ by measuring the length of 
CC$ using the LEN function, subtracting 1, and reassigning CC$ all of its 
original characters except the last. 

Once the character is deleted from the screen and from CC$, the 
subroutine branches back to the GET statement on line 8110. 

You should study the name-and-address program carefully and under- 
stand the data entry aids that have been included. They are as follows: 


- Reversing the field on the current entry line clearly indicates what 
data is expected and how many characters are available. 

- An operator does not have to fill in all the characters on an entry line. 
When the operator presses the RETURN key, the balance of the entry 
is filled out with blanks. 

- Atany time the operator can backspace and correct errors on an entry 
line by pressing the INST/DEL key. 
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- When questions are asked, the program only recognizes meaningful 
responses: Y or N for “yes” and “no,” or a number between | and 6 to 
select an entry line. A data entry subroutine should ignore meaning- 
less entries. For example, to recognize Y for “yes” but any other 
character besides N for “no” could be disastrous, since accidentally 
tapping a key could prematurely take the operator out of the current 
data entry. Recognizing N for “no” but any other character for “yes” 
would cause the operator to reenter data unnecessarily into some field 
if the wrong key was accidentally pressed. 


Here are some data entry precautions that could be added: 


* Check the ZIP code for any nondigit entry. However, postal codes 
outside the U.S.A. (Canada, for example) do allow alphanumeric 
entries. 

- Many cautious programmers will ask the question: ARE YOU 
SURE? when an operator responds with “no” to the question ANY 
CHANGES?. This gives the operator who accidentally touched the 
wrong key a second chance. 

- You might add a key that aborts the current data entry and restores 
the prior value. For example, if the operator presses the wrong 
number to select a field that must be changed, the example program 
forces the operator to reenter the line. 


Try modifying the name-and-address entry program to include the 
additional safety features described above. 


THE REAL-TIME CLOCK 


Another VIC 20 computer feature is the real-time clock. This clock 
keeps real time in a 24-hour cycle by hours, minutes, and seconds. The 
reserved string variable TIMES, or TI$, keeps track of the time. 


Setting the Clock 


To set the clock, use the following format: 
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TIMES = “hhmmss” 


where: 
hh is the hour between 0 and 23 
mm is the minutes between 0 and 59 
ss is the seconds between 0 and 59 


For hh, enter the hour of the day from 00 (12 A.M.) to 23 (11 P.M.). The VIC 
20 computer is on a 24-hour cycle so that you can distinguish between A.M. 
and P.M. The hours from 00 to 11 designate A.M., and the hours from 12 to 23 
designate P.M., returning to 00 at midnight. At midnight, when one 24-hour 
cycle ends and another begins, hh, mm, and ss are all set to zero. 

When initializing TIMES to the actual time, type in a time a few 
seconds in the future. When that actual time is reached, press the RETURN 
key to set the clock. 


TIMES="126156" 


Accessing the Clock 
To retrieve the time, type the following in immediate mode: 
?TIMES 

The computer will display the time in hhmmss format. 


? TIMES 
120268 


The VIC 20 computer clock keeps time until it is turned off. The clock 
must be reset when the computer is turned on again. 


Real-Time Clock Operation 


The VIC 20 computer actually keeps track of time in jiffies. A jiffy is 
1/60 of asecond. TIME, or TI, is a reserved numeric variable that automati- 
cally increments every 1/60 of a second. TIME is set to zero on start-up and 
is set back to zero after 51,839,999 jiffies. TIMES is a string variable that is 
generated from TIME. When TIMES is called, the computer displays time 
in hours, minutes, and seconds (hhmmss); that is, it converts jiffy time to real 
time. | 

Notice that TIMES and TI$ are not the string representations of TIME 
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and TI; they are numbers representing real time, calculated from jiffy time 
(TIME, TI). The conversion is done as follows: Each second is divided into 
60 jiffies. One minute is composed of 60 seconds. One hour is made up of 60 
minutes. Thus, one second is 60 jiffies, one minute is 3600 jiffies, and one 
hour is 216,000 jiffies, as illustrated. 


60 X Jiffy Second/60 = Jiffy 


60 Jiffies 


= 60 X Second 
= 60 X (60 Jiffies) 
= 3600 Jiffies 


Minute/60 = Second/60= Jiffy 


= 60 X Minute 
= 60 X (3600 Jiffies) 
= 216,000 Jiffies 


Hour/60 = Minute/60 = Second/60 = Jiffy 


The following program converts jiffy time (J) into real time, shown as 
hours (H), minutes (M), and seconds (S). A complete program follows the 
statement descriptions. 


1@ J=TI Calculate hours. Integer function 
26 H=INTCJ/2160a05 takes only whole number. 


38 IF H<>@ THEN J=J~H#2160@9 If any hours, subtract number of 
jiffies in one hour by H to leave 
remaining jiffies. 


40 M=INT<J/2608> Calculate minutes. 
Integer function takes only whole 
number. 


24 IF M28 THEN J=J-M#e2600 If any minutes, subtract number of 
jiffies in minutes by 7 to leave 
remaining jiffies. 


69 S=INT(I/605 Calculate seconds. Integer function 
takes only whole number. 


Downloaded from www.Manualslib.com manuals search engine 


Chapter 4: Advanced BASIC Programming 449 


3 PRINT"SREAL TIME": PRINT: PRINT 
1@ J=TI 

15 TS=TIMES 

26 H=INT(I/26088> 

38 IF HC>@ THEN J=J~Hee lean 

49 M=INT( I /36883 

4 IF M¢>@ THEM J=J-M~3608 

60 S=INT(J/6@> 

76 HS=RIGHTS(STRECH), 2) 

SQ MS=RIGHTECSTRECMY. 23 

98 SS=RIGHTS(STRECS3, 2) 

198 PRINT"H:M:S: "SHES" "SMe; USNs S$ 
185 PRINT" TIMES: "TS. 

116 PRINT" Sie"; ‘GOTO 18 


In this program, statements 70 through 90 convert the numeric answers 
into proper form for tidy printing. Statement 100 prints both the real time 
calculated from the program, and TIMES, the real time calculated automat- 
ically by the computer. Notice that the result is the same in both cases. 

To get an idea of jiffy speed and the conversion from the jiffy clock to 
the standard clock, type in the following program, which displays the 
running time of both TIME$ and TIME (TI). 


3 REM ##RUNNING CLOCKS#&.” 

1@ PRINT"CREAL TIME: ":PRINT:PRINT" JIFFY TIME: " 
26 FOR I=1 TO 2935959 

39 :PRINT"S"; TABC 13>; TIMES 

40 :FOR J=1 TO 6@ STEP 2 

08 ‘PRINT SMe" | TABC12); TI 

6@ ‘NEXT 

7@ NEXT 


The FOR-NEXT loop for TIME in line 40 increments by STEP 2 
(every two jiffies) for the following reasons: 


- Displaying 60 jiffies a second is too fast to read, and 

- Displaying a jiffy takes longer than incrementing the jiffy. This delays 
the loop, so the TIME$ display is slower than it should be. By 
incrementing and printing every other jiffy, you can minimize this 
delay problem. Run this program and you will see that jiffies incre- 
ment to 60 within each second. Run this program without STEP 2 in 
line 40 and see the time delay when printing TIMES. 


Real time: 006604 | 
Jiffy time: 25500 
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Keeping time in jiffies is useful for timing program speed. This lets you 
test the efficiency of a program. Consider the following short program: 


10 PRINT" SRRKEYBORRD TEST#R" : PRINT 
2@ FOR I=32 TO 127 

38 PRINT CHRS¢I); 

49 NEXT I 

5@ FOR J=161 TQ 2595 

6@ PRINT CHRS$<J); 

7@ NEXT J 

86 PRINT:PRINT:PRINT"##END TEST#R" 


You can compute execution time for this program as follows: 


1. TI (or TIME) is assigned to a variable at the start of the time test. 


2. TI (or TIME) is checked at the end of the time test. Subtract the first 
value of TI from the new TI value. This will give you the amount of 
jiffy time it took to process the program in question. 


The following listing adds these steps: 


10 PRINT"CRHKEYBORRD TESTHH": PRINT . 
iS A=TI 

26 FOR [=32 TO iz? 

36 PRINT CHRE¢CT): 

46 NEXT 

98 FOR J=161 TO 255 

66 PRINT CHRE< J); 

7@ NEXT 

8@ PRINT: PRINT: PRINT"#¥END TEST#E" 
194 PRINT:PRIHT"TI = "; TI-A 


As the program continues, TI increments 60 times every second. Line 
100 subtracts the first value of TI (A) from TI’s latest value. It took 41 jiffies 
to display the keyboard characters. Divide jiffy time (41 jiffies) by 60 (the 
number of jiffies in a second). 


41/60 = 0.6833 


Thus, it took 0.6833 seconds to run the program. 


RANDOM NUMBERS 


Random numbers may be used in games you program on your VIC 20; 
they have more practical uses in statistics and other areas as well. The VIC 
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20 will generate random numbers with the RND function. 

RND provides a real number between 0 and 1. This number is actually 
pseudo-random; that is, it is not truly random. However, that is a point 
raised by statisticians. The number is a close approximation of randomness. 

To determine the degree of randomness the RND function will have, 
you provide a starting number, or seed. If you use zero as the seed, that is, 
RND(0), the values it generates are based on three separate internal clocks. 
The odds against all three clocks having the same values twice in a row are 
very high; therefore, any number generated can be considered random. 

The sequence of most random numbers generated will always be the 
same. The only exceptions are RND(O) and RND(TI). Numbers that are 
very nearly random may be obtained using a random seed of 0. A predicta- 
ble pattern of numbers may be obtained by using a negative number as a 
seed. 

It may not seem very useful to have a random number with sucha small 
range of values. To obtain larger numbers, multiply the random number by 
the maximum value you want. For instance, to get a random number 
between 0 and 100, multiply the random number by 100. Type in the 
following program: 


1 REM RANDOM 

3 .A=100:'REM MULTIPLIER TO SET MAXIMUM RANGE 

19 Ri=RND(Q)>°REM GET RANDOM NUMBER 

28 R2=X#R1°REM MULTIPLY TO DESIRED RANGE OF NUMBERS 
08 PRINT" RAW #")R1i 

3) PRINT"RANGED #";R2 


Type RUN and press the RETURN key. The computer will choose a 
“raw” or random number, multiply it by 100, and display it. 


RAW 8=# 1672457317 
RANGED # 67.2457317 


Set X to a positive number less than 100, then type RUN to see a 
different ranged number. Try setting X to any negative real number and 
running the program again. This gives you a negative random number with 
zero as the greatest possible value. 

If you need the result to be rounded to the nearest whole or decimal 
number, add the following lines to the program you just entered: 
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2 Y=3:REM DECIMAL DIGITS WANTED IN NUMBER 

38 R3=INTCX#R1+.5) REM ROUND TO NEAREST WHOLE NUMBER 

40 R4=INTCXMRIM1OM. 59/107 :REM ROUND TO Y DECIMAL PLACES 
5@ PRINT" RAW = #"5RI 

35 PRINT"RANGED #";R2 

68 PRINT"ROUNDED ";R3 

65 PRINT"ROUNDED DECIMAL"; R4 


The variable Y controls the number of decimal digits of precision in the 
rounded decimal number. Your results will be similar to the following: 


RAW 8 =# .672457317 
RANGED # 67. 2457317 
ROUNDED 67 
ROUNDED DECIMAL 67.246 


Generating Random Dice Throws 


Random numbers are generated in the range 0 through not quite 1 (the 
limit of 1, in calculus terms). You will have to convert the random number to 
whatever range you require. Suppose numbers must range from | to 6 (as in 
one die number of a dice game). You will need to multiply the random 
number by 6. 


6 * RND(1) 


This returns a real number in a range just greater than 0 but less than 6. Add 
1 to get a number between | and 6. 


6* RND(1)+ 1 


Then convert the number to an integer. This discards any fractional part ofa 
number, returning the number in the range | to 6 but in integer form. 


INT(6 * RND(0) + 1) 
Or: 
A% = 6 * RND(0) + 1 


The general cases for converting the RND fraction to whole number 
ranges are shown below. 


INT (RND(O) * N) Range 0 to N 
INT (RND(O) « N+ 1) Range 1 toN 
INT (RND (0) * N+ M) Range M to N 
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Now experiment with a variety of different random number ranges by 
modifying the statements illustrated above. 

The program below shows —TI being used to generate a random seed. 
This program calculates numbers in the range M to N. In this program, the 
values of Mand Nareset in line 10 fora given program run. Note that these 
values can be negative. In the following example, the display is an unending 
sequence of random numbers between —50 and +50. (Press the STOP key to 
end the program.) A different sequence of numbers will be printed each time 
the program runs, since —TI provides a random seed. Note that the X value 
returned from RND(—TI) is displayed instead of the TI value. 

19 M=~50:N=58 

26 K=RHDC~-TI>:PRINT 

39 FOR I=1 TO 8 

49 :CZ=(N—M+1 #RNDC 15 +h 

28 ‘PRINT Cz 

So ‘NEAT 

69 GOTO 30:REM PRINTS NEW RANDOM NUMBERS 


RUN 
8.27633885E~-86 


29 
? 
35 
“32 
ao 
48 
~18 


To illustrate different number ranges, change the values of M and N in 
line 10 of the above program. For example, make M = 1 and N = 6; this 
will generate an unending sequence of random numbers between | and 6. 


Random Selection of Playing Cards 


A quick scan of the display above shows that numbers repeat within the 
first 100 generated. That is, 101 numbers will not include every number in 
the range —50 to +50 with no duplications. This is fine in, say, a dice game, 
but for other applications you may need to produce random numbers in a 
certain range where every number occurs and there are no duplications. 
Dealing from a deck of cards is one such application. Once a card has been 
selected, it cannot be selected again during the same deal. 

The program below shows one way to program shuffling a deck of 
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cards on the VIC 20. This program fills a 52-element table D% with the 
numbers | through 52 ina random sequence. (Element D% (0) is not used.) 
The cards can be pegged to the random numbers in any way, such as 


A= 1,2=2,3=3,...,Q= 12, K=13 
Spades =0, Hearts = 13, Diamonds = 26, Clubs = 42 


With this scheme, the Ace of Spades = 1 + 0= 1, the Queen of 
Spades = 12 + 0 = 12, the Three of Hearts = 3 + 13 = 16, and so on. 

In the shuffle program, a 52-element flag table FL keeps track of 
whether a card has been chosen. PRINT statements are inserted to display 
the seed value, followed by the numbers, in a continuous-line format. Note 
that exactly 52 numbers are displayed and that no number is repeated. Each 
program run will produce a new random sequence. 


19 DIM FL6¢S2Z), 04652) 

28 X*RNDC-TI) ‘PRINT X 

38 FOR I=] TO S52 

4Q :CABSZ#RND( 1941 

38 :IF FL“<CKHI<98 GOTO 40 
68 ‘Dacloeta 


1. 16566613E-05 

48 40 13 37 SO 43 46 31 439 44 
23 38 25 11 9 BH 3 W WA Al 
265 6 1 45 1@ 21 14 42 26 15 
3418 52 47 7 16 8 19 33 36 4 

17 3 22 27 29 28 39 2 31 12 
RUN 

1,81154728E-06 

14 35 S2 5@ 26 48 27 36 34 25 
18 28 41 33 399 7 46 24 23 2 1 
9 3 12 43 2 31 444 1 32 3 8 
@ 40 22 45 48 42 49 16 li 6 10 

29 9 S31 17 8 15 38 5 21 13 


Notice that this program runs more slowly as it nears the 52nd number. 
It is especially slow on the last card. This is because the program has to fetch 
more and more random numbers to find one that has not already been 
selected. A simple routine such as this has much room for improvement, of 
course. You can speed it up just by finding the last number in the program 
from the table rather than waiting until it is selected randomly. 


Downloaded from www.Manualslib.com manuals search engine 


Chapter 4: Advanced BASIC Programming 455 


You will find several uses for random numbers in the programs you 
write, especially if you write game programs. In the next two chapters you 
will see how to fully utilize your VIC 20’s capabilities as a game machine. 
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(Same Controllers 


The programs we have described so far have communicated with you 
in a “stop and go” fashion; that is, they stopped and waited for you to type 
something at the keyboard, then acted on it. This is fine for balancing a 
checkbook or typing letters, but many VIC 20 applications require a differ- 
ent style of communication. A program that simulated airplane flying 
wouldn't be realistic if the plane stopped in midair while the “pilot” typed 
instructions. To make this type of program more realistic (and less tedious 
to use), the VIC takes its directions from a different source. Instead of 
receiving instructions through the keyboard, the VIC can use game con- 
trollers, the joystick and paddle controllers similar to those used in arcade 
games. Since Commodore had not yet released paddle controllers for the 
VIC 20 when this book was being written, our examples were tested on 
paddle controllers manufactured by Atari, Inc., which are compatible with 
Commodore joysticks. 

In this chapter we'll show you how to write programs that use these 
game controllers. We'll also describe how to use the keyboard “on the run,” 
eliminating the stop and wait steps. If you don’t have a joystick, our 
keyboard example illustrates how to simulate one. 


157 
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THE JOYSTICK CONTROLLER 


The joystick, like old-fashioned airplane control sticks, controls both 
up-and-down and side-to-side motion. It does so with four switches: Up, 
Down, Left, and Right. Inside the joystick are “fingers” that push these 
Switches as the stick is moved. 


If the stick is moved up, down, or to one side, only one switch is closed. 
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There is also a Fire button, which has its own switch. Using the method 
described in the following sections, your program can tell whether these 
switches are open or closed and thus determine which way the joystick is 
pointing. By moving the joystick, you can direct elements on the screen. 


The VIA Chips 


The joystick is connected to the VIC through integrated circuits called 
Versatile Interface Adapters (VIAs). Certain pins of the VIA chip connect to 
the “outside world.” These pins receive a signal sent to them (input) or senda 
signal out to another device (output). Circuitry in the VIA chip enables the 
VIC to set or examine the signals on these pins using memory locations. The 
signals can be read and controlled through PEEKs and POKEs in BASIC. 


Testing the Joystick Switches 


The VIA’s input/ output pins are divided into two groups of eight. Each 
group can be set or examined through a single memory location, with one bit 
in that location representing each pin. The Up, Down, Left, and Fire 
switches are connected to one group of pins, and the Right switch is in 
another group. 


Memory Bits Joystick 
Location Switch Direction 
37137 
Up 
Down 
Left 
Fire 
37152 


Right 
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Since four switches are in the same memory location, the numbers in 
the boxes are used with the AND operator to isolate the bit for a particular 
switch from the others PEEKed from the same memory location. This use of 
AND was discussed in the “Boolean Operators” section of Chapter 3. In the 
result of the AND operation, all bits except the one we want to look at will 
be forced to a0 value. (This is called masking. Just as you use masking tape 
to cover up woodwork while painting the walls, computer programs use bit 
masks to cover up the bits they don’t want to test.) For example, the 
following statement determines if the Fire button is being pushed: 


19 FB = ¢PEEKC37137) AND 32> = OB 


“AND 32” eliminates the other switch values by “covering up” all bits except 
32. The program then compares the result to 0. The joystick switches supply 
a 0 signal to their VIA pins when the switch is closed and a 1 when ere 
When the switch is closed, the button is being pushed. 

Let’s look at the AND operation in binary. 


PEEK location 37137 0001100 
AND bit number 32 0010000 


0000000 


The result of the AND is 0, since 1 AND 0 is always 0. The switch is closed, 
the signal is 0, and the button is pushed. 

Try entering and running the following program to see how moving the 
joystick affects location 37137: 


19 PRINT PEEK(37137> 
20 FOR I=1 TO 250 : NEXT I : REM WAIT ABOUT HALF A SECOND 
36 GOTO 18 


The program checks and displays the value in memory location 37137 
every half second. As you move the joystick, notice the changes in the values 
displayed on the screen. When a switch in the joystick is closed, its mask 
value (32; 16, 8, or 4) is subtracted from the displayed number. Moving the 
joystick to the right has no effect because the program looks only at location 
37137, not at location 37152. Testing this switch requires some additional 
programming. 
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Testing the Right Switch 


The VIA pins for the Up, Left, Down, and Fire switches are normally 
set up as inputs, but the Right switch pin has two functions. In addition to 
acting as an input to test the switch, the Right switch pin serves as an output 
pin to scan the keyboard. A VIA pin can be either an input or an output. If 
the VIA is instructed to send a signal out through a pin, it can’t sense an 
incoming signal at the same time. 

When the VIA is told to use the Right switch pin as an input, the VIC 
subroutine that scans the keyboard can’t use it as an output. If the VIC can’t 
send a signal out through the pin, certain keys “disappear” and the VIC can 
no longer tell if they are pressed. To resolve this conflict, programs that use 
the joystick must instruct the VIA to use the pin as an input while checking 
the joystick switch, then set it back to an output so the VIC can check the 
keyboard. The program can do this by POKEing into a memory location 
that controls the direction (in or out) of the pins. Each group of eight I/O 
pins corresponds to one of these locations. There is one bit in this location 
for each of the eight pins. This bit is a 0 for an input pin ora 1 foran output 
pin. | 

To minimize conflict with the keyboard scanner, your programs should 
set the direction control, read the switch, and restore the direction control 
on a single program line, as follows: 


1@ POKE37154,.@ : RS = PEEK(37152) : POKE37154,255 


A Complete Joystick Scanner 


We will now look at the programming necessary to convert the joy- 
stick’s bit locations to physical movement. If you write one program that 
uses a joystick, you will probably write others, so we'll provide a standard 
subroutine that can be typed into any program. This subroutine sets three 
variables for the main program. 


XI The X Increment. Controls movement to the right or left. 
YI The Y Increment. Controls movement up or down. 
FB Tells whether the Fire Button was pressed. 


XI is set to —1 for left, +1 for right, and 0 for neither. YI is set to —1 for 
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down, +1 for up, and 0 for neither. If the Fire button is pressed, FB will bea 
1; otherwise, it will be a 0. 


639080 POKE37154, 127: XTA=PEEK(371522AND128 : POKES7 154, 255 
63016 XTH@KTAORCPEEKCS71379AND 127) 

63020 XI=SGN¢CXTAAND128)-SGNCXTAANDI6) 

63038 YI=SGNCXTAANDS)-SGNCXTZAND4 ) 

63040 FB=1-SGNCKTAAND32> 

63050 RETURN 


This program uses some tricks to make it run faster. Let’s examine its 
operation line by line. 


63000 


63010 


63020 
63030 


63040 
63050 


Reads the Right switch and uses the technique described 
above to preserve the keyboard scanner. 


Reads the other switches and combines them with the Right 
switch into a single variable. Notice the use of AND in both 
lines 63000 and 63010 to mask off the non-joystick bits. 


These two lines derive the X and Y increments from 

the switch values. To reduce the amount of time needed to 
calculate them, the SGN function is used. This returns a | if 
the switch is off and a 0 if it is on. This is faster than 
comparing the result of the AND to zero. 


Gets the value of the Fire button. 


Returns to the main program. 


USING THE JOYSTICK SCANNER 


The following simple program illustrates the capabilities of the joystick 
scanner. It moves an object around on the screen in response to the move- 
ment of the stick. 


100 PRINTS" 

200 GOSUB 63680 

300 IF XI=Q AND YI=@ THEN2Q0 

400 PRINTCHR$(2@) : REM DELETE CHAR ON SCREEN 
300 IF XI=~1 THEN PRINT "EM"; 

600 IF XIm= 1 THEN PRINT"ODM" ; 

700 IF YIe~1 THEN PRINT" 3h"; 

800 IF YI= 1 THEN PRINT"®"; 

988 GOTO 2e0 
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TABLE 5-4. Paddle Controller Memory Locations 


Location Contents 


36872 Left pot position 

36873 Right pot position 

37137 Left controller switch (AND with 16) 
37152 Right controller switch (AND with 128) 


THE PADDLE CONTROLLERS 


The paddle controllers derive their name from their use in the early 
ping-pong style video games. Each controller consists of a variable resistor 
called a potentiometer or pot. The potentiometer is controlled by a knob 
and by a switch similar to the Fire button on the joystick. Like the joystick, 
the paddle interface is compatible with controllers such as those made by 
Atari. 

The value of the “pot” is read by an integrated circuit in the VIC and 
converted to a number between 0 and 255. The switches, on the other hand, 
are read by the VIAs, using two of the joystick pins. 

To find the position of the controller knob, PEEK the location listed in 
Table 5-1 for the control you want to check. Testing the paddle controller 
switches is slightly more complicated, but the techniques we developed for 
the joystick can be used. The switch for the Left (X) controller is connected 
to the same pin as the Left switch on the joystick. Similarly, the Right (Y) 
controller matches the Right joystick switch. 

If you intend to use the switches in your programs, review the discus- 
sion of the direction controls. Since the switch on the Right controller is 
attached to the VIA that is shared with the keyboard, you will need to use the 
technique described above to avoid “colliding” with the keyboard scanner. 


KEYBOARD COMMUNICATION USING 
THE GET STATEMENT 


In Chapter 3 we introduced the GET and INPUT statements. Many of 


the examples so far have used the INPUT statement. Those programs are 
the “stop and go” kind; if they need information from the keyboard, they 
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have to wait for it. If you want to write an “action” program that receives 
instructions from the keyboard, you can use the GET statement. 

Like INPUT, the GET statement reads information from the keyboard. 
But that’s where the similarities end. The main differences are as follows: 


1. INPUT reads one or more complete numbers or strings. GET reads 
only a single keystroke. 


2. Using INPUT, the program waits for you to press RETURN. If 
nothing is typed, your program will wait indefinitely. GET, on the 
other hand, never waits; if no key was pressed the program tells you 
so, but keeps on running. 

3. When you are typing in response to an INPUT statement, the “?” 
prompts you for input, and the characters you type appear on the 
screen. GET has no prompt and doesn’t echo what you type. 


In other words, with a GET statement a program can determine 
whether a key has been pressed, but won’t wait if no key is pressed. If the 
person using the program types nothing, the program can determine this 
and make decisions based on it. 


GET Statement Syntax 


The syntax of GET, shown in the following line, is quite simple: 
GET variable name 


No options are available. You must have exactly one variable in the “list.” 
Unlike INPUT, no prompt string is allowed. You can, however, easily 
display a prompt string: Use a PRINT statement terminated with a semi- 
colon to stop the VIC from printing a RETURN. 


1@ PRINT"THIS IS A PROMPT: "; 
20 GET AF 


The variable used with GET can be any type (integer, floating point, or 
string), but a string variable works best. There are two reasons for this. 


1. Ifa numeric variable is used, BASIC attempts to interpret any key 
pressed as a number. If you type something other than a number, a 
syntax error occurs and the program stops. 
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2. If no key has been pressed, the numeric variable is assigned a value 
of 0. The program has no way of determining whether no key was 
pressed or a “O” was typed. 


With a string variable, you can GET almost any key, including the 
cursor control keys and RETURN. (The STOP and RESTORE keys can’t be 
read, and the various shifts and the CTRL key operate as usual.) If no key is 
pressed, GET assigns an empty string to the variable and your program 
detects this. If you want to wait until something is typed in, use a line like the 
following: 


14 GET AS : IF AS = "" THEN 18 


Notice that there is no space between the quotes, resulting in an empty 
string. If the variable you GET is equal to this empty string, then no key was 
pressed. 


Echoing Keystrokes 


As mentioned earlier, characters entered with GET do not appear on 
the screen. Sometimes, however, you need to see what you type. This can be 
accomplished by adding a PRINT statement to the program. 


16 GET A$ : IF AS = "" THEN 18 
26 PRINT A$; 


The simple program above will echo to the screen exactly what is typed 
at the keyboard. Pressing the STOP key will stop the program. 


The Keyboard as Joystick 


This section is presented in a “case study” form. Rather than start with 
the program listing, we will first show you some of the steps taken in 
designing it. Following these steps will help you to understand both the 
program listings and the programming process itself. 

Our make-believe joystick will act just like the ones made by Commo- 
dore. Youcan make it point in various directions (left, right, up, down, and 
diagonally) by pressing different keys. It will also have a Fire button, 
although it can’t be pushed while a direction key is being held down. 


Downloaded from www.Manualslib.com manuals search engine 


Chapter 5: Game Controllers 467 


sso OOOO eee 


CHOOSING THE KEYS 


We will first select the keys that will make up the joystick. Nine keys are 
needed: eight for the various pointing directions and one for the Fire button. 
The keys should be arranged so that they are easy to use. The arrangement 
below uses the keys that are naturally under the right hand when touch- 
typing. Their circular pattern is easy to learn and remember. 


DESIGNING THE INTERFACE 
TO THE MAIN PROGRAM 


Now let’s take a look at the programming necessary to interpret the 
keys and simulate the joystick. The subroutine should be compatible with 
the one described for the actual joystick so that you can write programs that 
work with either. This subroutine will set the same three variables for the 
main program. 


XI The X Increment. Controls movement to the right or left. 
YI The Y Increment. Controls movement up or down. 
FB Tells whether the Fire Button was pressed. 
XI is set to —1 for left, +1 for right, and 0 for neither. YI is set to —1 for 


down, +1 for up, and 0 for neither. If the K key is pressed, FB will be a 1; 
otherwise, it will be a 0. 7 


LOADING THE TABLES 


The program will interpret the keys by looking them up in a table. It 
uses other tables for the XI and YI values. These tables will be stored as 
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arrays in the program. The first array (KT$) contains the values of the keys 
that make up our joystick. The other two arrays contain the values of XI and 
YI that correspond to those keys. For example, KT$(5) contains the letter 
“U”, which means “up and left,” so XT(5) contains —1, and YT(5) contains 
1. To save time when scanning the keyboard, we'll build these tables in a 
separate subroutine that is executed only once at the beginning of the 
program. 


62000 REM KEY TABLE VALUES 

62160 DATA I,0,L,"."5 "4", MJ,U 

62200 REM X INCREMENT VALUES 

62386 DATA @.1,1,1,0,-1,-1,-1 

62460 REM Y INCREMENT VALUES 

62580 DATA 1,1,8,-{.~-1,-1,8,1 

62609 FOR I=Q@ TO 7 : READ KT$CI> : NEXT 
62769 FOR I=@ TO 7 : READ XTCID : NEXT 
62869 FOR I=@ TO 7 : READ YTCI) : NEXT 
6265@ REM MAKE ALL KEYS REPEAT 

6298 PCKE 650,128 


Your program must call this subroutine before attempting to use the 
“joystick” in order to translate the keys correctly. 

When using this routine, be careful where you place the DATA state- 
ments. Remember that the READ statement starts with the first DATA 
statement in the program. If you put additional DATA statements in this 
program, you may find it helpful to separate the ones above from the 
subroutine and group them with your own to keep them in the right order. 


THE KEYBOARD INTERPRETER SUBROUTINE 


The subroutine to read the keyboard and translate the key has high 
statement numbers to force it to the end of the program. 

63009 XI=@ : YI=eQ@ : FBs® : LI=8 

63018 GET KES 

63020 IF KE$=s""" THEN RETURN 

63030 IF KES=KT$(LI> THEN YI=YTCLI> : KI=XTCLID : RETURN 

63046 LI=LI+1 : IF LI<8 THEN 638030 

63056 IF KE$="K" THEN FB=1 

63868 RETURN 


This subroutine has a few tricky parts, so we will go over it line by line. 


63000 XI, YI, and FB are set to zero first. Since there are three 
places where we RETURN, the old values must be erased 
before we start. 
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63010 Checks to see if any key is pressed. 

63020 If not, RETURNS, leaving all variables set to zero. 

63030 These lines form a loop to scan the key table for 

63040 the key that was pressed. A FOR-NEXT loop is not used, 
since we want to RETURN immediately if the key is found. 
(Remember that you must always terminate a FOR loop 
with a NEXT, and we want to stop this loop as soon as 
possible.) 

63050 Checks for the Fire button. 

63060 RETURNS to main program. 

USING THE KEYBOARD JOYSTICK 


Your program should be entered ahead of statement 62000. You can 
SAVE a copy of these routines by themselves to use as a base on which to 
build programs. 

To see what can be done with the “keyboard joystick” routines, try 
using them with the demonstration program below. 


18 GOSUB 62080 

20 AS(Q>=" LEFT" ASC 158" "7 AS(2)="RIGHT" 
36 BSCQ>="DOWN "S BSC1)=" "SBS(2)="UP " 
49 C$(Q)="F IRE": C$¢(1)=" FIRES" 

34 POKE 658. 128 

199 PRINTS" 

110 PRINT"S" /ASCKI +1) "7" BSCVI+19,SPCC5  CECFBD 
129 GOSUB63989 

136 GOTO11@ 

62806 REM KEY TABLE VALUES 

62190 DATA T.0-L OM IU 

62200 REM X INCREMENT VALUES 

62389 DATA O:1,1,1,8,-1,-1,-1 

62400 REM Y INCREMENT VALUES 

62566 DATA 1,4,0,-1,-1,-1,451 

62660 FOR I=@ TO 7: READ KT$<I>: NEXT 

62708 FOR I= TO 7: READ XTC13: NEXT 

62808 FOR I=@ TO 7: READ YTCI>: NEXT 

63600 Xi=6: YIle@: FBe@: LI=@ 

63610 GET KES 

63028 IF KES = "" THEN RETURN 

63030 IF K# = KSCLI> THENYI = YCLID: XI = KTCLIO: RETURN 
63948 LI = LI+1: IF LI < 8 THEN 63030 

63050 IF KES = "K" THEN FB = { 

63260 RETURN | 
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CHAPTER 


Graphics 


L. this book, “graphics” means the display of pictures, rather than text, 
data, or programs, on the screen. The “picture” could be a face, an architec- 
tural drawing, a geometric shape, or simply an arrangement of text 
characters. 

The VIC 20 has extensive graphics capabilities. Some of these, such as 
the built-in graphics characters and the VIC’s ability to display text and 
pictures in color, have been mentioned in the preceding chapters. We will 
cover these features in more detail in this chapter and describe the VIC’s 
other graphics features, such as its ability to use characters you design. As 
these features are introduced, we will show you programming techniques for 
using them to produce colorful and animated displays. 


Video Interface Chip 


The Video Interface Chip (VIC chip) is a complex integrated circuit 
that generates the picture and sound that the VIC produces on your televi- 
sion. It is the origin of the VIC’s name. 

The first job of the VIC chip is to act as a video interface. It translates 
computer signals into television signals that produce a picture on the screen. 

The VIC chip also generates the sounds that you hear through the 

_ television speaker. Chapter 7 examines the sound portion of the chip. 


171 
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Finally, the VIC chip locates the light pen or paddle controller knob 
positions. 

Your program communicates with the VIC chip by using PEEK and 
POKE. Much of the art of VIC graphics involves knowing what to POKE 
and where to PEEK. That is the focus of this chapter. 


The VIC Screen 


Let’s look again at the screen, our “canvas” for graphics artistry. Figure 
6-1 presents a blank screen. Notice that it is divided into two areas, the 
border and the background. The border frames the background; since 
television screens do not have straight edges, the border fills the gap between 
the display and the edge of the television screen. The background is the 
“working area” of the screen. Both the text and graphics created by your 
programs are displayed here. The background consists of 23 rows of 22 
characters each, as shown in Figure 6-2. Notice that the rows are numbered 


, Background 


FIGURE 6-4. The VIC 20 screen 
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FIGURE 6-2. The screen divided into rows and columns 


from 0 to 22, and the columns from 0 to 21. The formulas for manipulating 
screen data that we will present throughout this chapter are much simpler if 
you think of the screen as starting at row 0, column 0, rather than row |, 
column 1. All the discussions and examples in this chapter will use this 
numbering convention. 


Border, Background, and Character Colors 


The colors of the border, background, and the individual characters 
can be set independently. When the VIC is powered on (or reset with the 
RUN/STOP and RESTORE keys), the border is cyan, the background white, 
and the characters blue. You can change these colors at any time. 

The background and border colors are stored in the VIC chip. They can 
be changed simply by POKEing a number into location 36879. Both colors 
are controlled by a single number. A table of the POKE values for all their 
possible combinations is provided in Appendix E. 

The color of each character on the screen can be set individually. Each 
character has its own location in an area called color memory. Later in this 
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chapter we will explain how to access this color memory directly, but you 
can make the VIC take care of it for you. On the front of the numeric keys | 
through 8 are printed abbreviations for each of the eight character colors. 


Key Abbreviation Color 


l BLK Black 
2 WHT White 
3 RED Red 

4 CYN Cyan 
5 PUR Purple 
6 GRN Green 
7 BLU Blue 

8 YEL Yellow 


To change the color of the characters, press and hold the CTRL key, 
then press the key for the color you desire. All characters generated at the 
keyboard or bya program will appear in the color selected. Only characters 
displayed after you set the new color will be affected; those already on the 
screen will not be changed. | 


Players and Playfields 


Many graphics programs, especially games and simulations, move one 
or more objects against a fixed background. To avoid confusion with other 
terms, we will refer to the objects as players and the background as the 
playfield. 

Not all players will move, and the playfield may change. In fact, insome 
applications the players will stay in one place and the background will move, 
just as in the old movies where the stagecoach sat still while the painted 
scenery rolled by behind it. 


GRAPHICS WITH THE EXTENDED 
CHARACTER SET 


Simple players can be made using the VIC’s built-in graphics charac- 
ters. These are the shapes and symbols printed on the front of the keys. For 
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example, the following short program will display a drawing of a car on the 
screen: 


144 PRINT "cy" 

266 PRINT " “NL " 
30@ PRINT "/ “o 
460 PRINT "Li " 
068 PRINT "0 go " 


One of the advantages of creating displays with PRINT statements is 
that you can doodle on the screen in immediate mode until you’re satisfied 
with your player, then build the PRINT statements around it. This is how we 
built the car in the program above. Let’s look at the process step by step, 
using a simpler example. 


Step 1: Clear the screen. Use the SHIFT and CLR/HOME keys (Figure 6-3a). 

Step 2: Draw the top half of the diamond. Type SHIFT-N, then SHIFT-M 
(Figure 6-3b). Don’t press RETURN; if you do, the VIC will try to 
execute what you just typed and print a READY message on your 
picture. (If you type any nongraphics characters, you may also get a 
2SYNTAX ERROR message.) To avoid this, type SHIFT-RETURN. 
The cursor will still move down to the beginning of the next line, but 
the VIC will not try to execute your picture. 

Step 3: Draw the bottom half of the diamond. Type SHIFT-M and SHIFT-N 
to complete the diamond (Figure 6-3c). 

Step 4: Home the cursor. Press the CLR/HOME key without pressing the 
SHIFT key (Figure 6-3d). 

Step 5: Insert four spaces with the INST/ DEL key. This leaves room for a line 
number, a “?” for PRINT, and a double quote to start a string (Figure 
6-3e). 

Step 6: Type inthe PRINT statement. Enter the line number (10), a ques- 
tion mark, and the double quote (Figure 6-3/). 

Step 7: Press RETURN. Don’t use SHIFT this time. BASIC stores the first 
line of the diamond as a program line. Repeat steps 5 through 7 for the 
second line of the drawing, using a line number of 20 this time. 


You now have a program that can be RUN to display the diamond 
drawing. This method can be used to reproduce almost anything you can 
sketch on the screen, from a simple square to a complex picture. The only 
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FiGure 6-3. Drawing a diamond 
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restriction is that you can’t completely fill the screen, since you will need 
room to insert the PRINT statements. 

Now experiment a bit with some of your own designs. For the moment, 
stay away from reversed characters. They require some special handling that 
we'll cover in the next section. 


Using Reversed Characters 


You may have already noticed that reversed characters have a special 
use in PRINT statements: They represent keys that do not generate “nor- 
mal” characters, such as HOME, the cursor controls, and the color keys. If 
you enter a reversed character directly into a PRINT statement, one of the 
following two things will happen: 


- The character will be interpreted as a “special key” to move the 
cursor, change the color, and so on, or 


- The character will not match any of the special keys; it will be stored 
aS a nonreversed character when you press RETURN. This will 
happen even if the character appears between quotes in the 
program. 


To PRINT a single reversed character within a string, enter a RVS ON 
(CTRL-9) before the reversed character. The character itself must appear in 
the PRINT statement as a “normal” (nonreversed) character. If you are 
building PRINT statements from a screen sketch, you can insert the RVS ON 
using the INST key. Remember that pressing the INST key puts you in quote 
mode for one character, so the RVS ON will be stored as part of the PRINT 
statement instead of being executed. 

The “reverse on” is reset automatically at the end of the PRINT line. 
(Remember that a PRINT line can span more than one line on the screen. A 
RETURN indicates the end of a PRINT line. If a PRINT statement ends with 
a semicolon, BASIC does not add a carriage return, and characters will still 
be displayed in reverse.) If normal characters follow the reversed ones on the 
PRINT line, insert a RVS OFF (CTRL-0) before the first nonreversed charac- 
ter. Otherwise, the RVS OFF is not needed. 

To illustrate the problem and solution, we will modify the Diamond 
program to produce a solid block instead of an outline. Follow the steps 
displayed in Figure 6-3, but use different characters to make up the player. 
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- In step 2, after clearing the screen, type RVS ON (CTRL-9), SHIFT-E£, 
and C-, 


- In step 3, type @-* and SHIFT- £. 


When you list the program, you will notice that the first SHIFT- £ has 
changed to normal, but the C-« has not. 


1@ PRINT"Me 
20 PRINT" 


Now run the program, and observe the effect of the reversed C-*: The 
second line has turned cyan. 

To change the program so it displays what we originally wanted, follow 
these steps: List the program to display it on the screen. Position the cursor 
over the SHIFT- £ in line 10 and press SHIFT-INST. This inserts a space and 
temporarily puts the VIC in quote mode. Type CTRL-9 (RVS ON). Since it is in 
quote mode, the VIC will insert the RVS ON in the PRINT statement (dis- 
played as a reversed “R”) instead of switching to reversed characters. When 
the PRINT statement is executed, the reversed “R” will be recognized and the 
VIC will start displaying reversed characters.Change the reversed @-* toa 
normal one so it won’t turn the screen cyan again. Move the cursor over and 
type a @-« over the old one. 

The program should now look like this. 


19 PRINT" 
26 PRINT" W 


Run the program again, and you will see that the diamond is now 
correctly displayed. 


Adding Color to Your Display 


Like reversed characters, color displays require special care. The prob- 
lem here is slightly different: The VIC simply forgets the color of a character 
once it is off the screen. This happens because the color is not actually part of 
the character in your program. As mentioned earlier, there is an area in 
memory set aside to hold the colors of the characters on the screen. When 
you list your program, the VIC sets the color for each character to the active 
character color. When first powered on, VIC uses blue for the character 
color. In Chapter 2, you learned howto change the color from the keyboard 
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using the CTRL key. As we are about to see, your program can also change it. 
Once a character is gone from the screen, the color memory is reused to show 
the color of the character that takes its place. Only the character itself is 
stored as part of the program. 

As with reversed characters, this problem is solved by inserting control 
characters into the program to set the color. For example, to make the 
diamond red instead of blue, insert a CTRL-3 into line 200 following the 
“reverse on” (reversed “R”) so that the line looks like the following: 


10 PRINT" o#™% 
28 PRINT"? 


Now run the program. Notice that the entire diamond is red, not just 
the first line. Color controls, unlike the “reverse on” control, are not reset 
when you start a new line. They remain in effect until a new color is set, or 
until you reset the VIC with the RUN/STOP and RESTORE keys. 


CREATING DISPLAYS WITH POKE 


Sometimes it is not practical to use PRINT to build a graphic display. 
For example, if several players are moving about on the screen, you may 
need to detect when they collide with each other or with an object on the 
playfield. Or you might want to have a cursor on the screen when reading 
characters with GET. For applications like these, you will want to access the 
display directly. The VIC allows you to do this using PEEK and POKE. 


Screen Memory 


The characters displayed on the screen are stored in the VIC’s memory. 
The VIC chip reads the image of a character from memory as it is being 
displayed on the screen. The characters are stored in an area called screen 
memory, and the colors of the characters are stored in color memory. 
Because these areas are part of the VIC’s memory, you can use PEEK and 
POKE to examine and change the contents of the display. 


FINDING SCREEN MEMORY 


In most computers, the location of screen memory is part of the 
hardware design and cannot be changed. In the VIC, although the number 
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of rows and columns in screen memory is fixed, its starting point is not: The 
VIC chip has a pointer to the start of screen memory, and this pointer can be 
changed by your program. Commodore makes use of this ability to move 
screen memory. On a small VIC with no added memory or with one of the 
cartridges that adds 3K of memory, the screen is kept at the top of program 
memory, starting at location 7680. On a VIC with 8K or more of added 
memory, the screen is moved to the bottom of program memory, starting at 
location 4096. Figure 6-4 illustrates this relative placement of screen 
memory. 

The method of moving the screen around allows you to expand 
memory without breaking it in the middle with the screen, but requires that 
programs that PEEK and POKE directly into screen memory be aware of 
where the screen is. This is easily done. VIC BASIC keeps a byte in low 
memory that tells it where the screen begins. If you PEEK this byte (location 
648) and multiply it by 256, you will get the starting address of screen 
memory. 


1@ SBaZ56#PEEK (648) 


Techniques for moving screen memory are discussed in the section on 
“Advanced VIC Chip Topics” at the end of this chapter. 


VIC System 
Area 


Not 
Present 


Program 
and 
Program Variables 


and Program 
Variables and 


Variables 


Screen Memory Screen Memory 


No Added Memory 3K Added Memory 8K + Added Memory 


FiGuRE 6-4, Relative placement of screen memory 
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SCREEN MEMORY LAYOUT 


The characters you see on the screen are stored in memory as an array 
of 23 rows and 22 columns. This array is nota BASIC variable. It is simply a 
506-byte area in the VIC’s memory that you can access with PEEK and 
POKE, but you will find it helpful to visualize this area as an array. Each 
element of this array holds one character from the screen: Element (0,0) 
contains the character in the upper left corner of the display, and element 
(22,21) holds the character in the lower right corner. 

Once you have found where screen memory starts, using the formula 
from the preceding section, you can readily calculate where to POKE fora 
particular character. The formula is 


POKE location = start of screen + column + 22 * row 


In order to use this formula, you must number screen columns from 0 to 
21 and rows from 0 to 22. To see an example of this formula, type in the 
following program: 


100 SB=256#PEEK(648) 

11@ REM FILL SCREEN MEMORY WITH "a" 
126 FOR [=@ TO 312 

130 POKE SB+I.@ 

140 NEXT I 

158 REM WAIT FOR A KEY TO BE PRESSED 
160 GET x$ 

170 IF X$="" THEN 168 

16@ REM CHANGE BACKGROUND TO BLACK 
198 POKE 36879, 11 


Before running the program, clear the screen and list the program, 
leaving the listing on the screen. Now run the program and observe the 
results: All the characters on the screen, except spaces, were changed to @’s. 
In fact, the program changed every character to an @, but those that appear 
on the screen as spaces are invisible. When VIC BASIC clears the screen, it 
changes the character color of all characters on the screen to match the 
background. Then, as each character is printed, the VIC sets its location in 
color memory. Since some of the @’s are displayed as white characters ona 
white background, they will be impossible to see. To make them visible, 
press the space bar. The program will change the background color to black, 
and the white @’s will appear. 

You must be aware of this problem of disappearing characters when 
using POKE in a display. Your program must ensure that the color of the 
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location you are POK Eing is correctly set. The next section describes how to 
do this. 


Color Memory 


Earlier in this chapter we mentioned that the colors of the characters on 
the screen are kept in a special area called color memory. As our most recent 
example shows, an understanding of how to use color memory is essential 
when using POKE in displays. So, before proceeding further with POKEing 
screen memory, let’s take a look at color memory. 


FINDING COLOR MEMORY 


Like screen memory, color memory “moves,” but the factors that 
determine its location are different. To find the start of color memory, use 
the following formula: 


10 CB=37888+256K(PEEK(648) AND 2) 


The section entitled “VIC Chip’s Window into Memory” near the end 
of this chapter includes more information on how the VIC chip locates color 
memory. 


CONTENTS OF COLOR MEMORY 


As with screen memory, there is one location in color memory for each 
character on the screen. The order of character colors is the same as that of 
the characters themselves, so the formula used to find a character’s location 
in color memory is like the one used to locate the character in screen 
memory. 


Color memory location = start of color memory + column + 22 * row 


The color of each character is stored in color memory as a number from 
0 to 7. The colors produced by these numbers are as follows: 


0 Black 4 Purple 
1 White 5 Green 
2 Red 6 Blue 

3 Cyan 7 Yellow 


To help you remember these numbers, you can use the following rule: 
The POKE value to set a color is one less than the value of the number key 
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on which it appears. For example, to change the character color to green 
from the keyboard, you would type CTRL-6. The POKE value would be 5. If 
you keep this rule in mind, you will find a handy reference to the POKE 
values right on the keyboard. 

Unlike other areas of VIC memory, color memory has only four bits per 
location. Three of these bits hold the color number (0 to 7), and the fourth is 
used for multicolor mode graphics, which we will discuss later in this 
chapter. (For now, you should make sure this bit is always zero by POKEing 
only numbers from 0 through 7 into color memory.) Since the upper four 
bits are not used, Commodore did not include memory chips to hold them. 
If you POKE a number larger than 15 into a color memory location, the part 
of it held in those “missing” bits will be lost. 


10101010 A value of 204, when the upper 4 bits are dropped, 
1010 is stored as a 12 


11111111 A255 
1111 becomes a 15 


00000111 <A value of 7, however, 
0111 is not changed. 

Since there is no memory chip to supply the upper four bits when 
reading color memory locations, they will take on unpredictable values. 
Remember that a bit must be either a | or a 0; even if there is no signal 
present on a chip’s input pin, the chip must assign it some value. With no 
signal coming into the pins for the upper four bits, the chip arbitrarily gives 
them either a | ora 0 value. When PEEKing color memory, always discard 
the nonexistent bits. This can be done by using AND to mask them, as 
described in Chapter 5. 


1@ BY=PEEK‘38402) AND 15 


Screen Display Codes 


Once you understand where to POKE to change the display, you will 
need to know what value to put there. Commodore computers, including the 
VIC, do not use the same character code in screen memory that they use in 
programs. Most computers store characters in a standard code called ASCII 
(American Standard Code for Information Interchange). Commodore 
computers use an “extended” ASCII for all purposes other than represent- 
ing characters in screen memory. The “extensions” are the graphics charac- 
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TABLE 6-4. ASCII to Screen Code Conversion 


0-31 
32-63 
64-95 
96-127 
128-159 
160-191 
192-254 
255 


ters and certain control codes, which are not used by other manufacturers. 
Many of the control codes do not have a displayable character associated 
with them. In order to make as many graphic codes as possible available on 
the screen, Commodore devised a different code for screen memory. This 
code eliminates some ASCII characters and changes the values of others. 

Appendix E contains a table showing the screen display codes. If your 
program is POK Eing characters that are set at the time you write it, you can 
simply look them up in the table. If you do not know in advance what 
characters you will be POKEing, your program must convert them from 
ASCII to screen display code. This might be necessary if, for example, your 
program uses GET to read instructions from the keyboard and you want to 
echo the characters in a particular place on the display. 

The conversion to screen code can be done with little effort because the 
ASCII codes that were changed were moved in blocks of 32 characters. The 
changes are shown in Table 6-1. 

Here is a simple subroutine that takes a key value, KV$, and converts it 
to a screen code, SC. If the key cannot be translated (a cursor control key, 
for example), it returns a value of —1. The main program can thus tell the 
difference between a displayable and a nondisplayable keystroke. 


68080 SC= ASCCKY#> 

60018 IF SC<32 THEN SC#126: RETURN 
68020 IF SC<64 THEN RETURN 

60030 IF SC<96 THEN SC=SC-64: RETURN 
6040 IF SCC126 THEN SC=SC~32: RETURN 
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68030 IF SC<16@ THEN SC=128:RETURN 


60060 IF SC<192 THEN SC=S0~64:RETURN 
60070 IF SCC255 THEN SC=SC~128: RETURN 
60439 SCa94: RETURN 


Moving Dot Revisited 


In Chapter 5 we presented a program that moved a dot around the 
screen as an example of using the joystick. Here, for comparison, is how that 
program could be written using POKE instead of PRINT. As before, this 
program is not complete: You must add the appropriate subroutine to use 
either the keyboard or the joystick for control. 


190 
112 
120 
139 
149 
150 
160 
170 
190 
190 
200 
210 
226 
230 
240 
250 
260 
278 
280 
298 
300 
310 
320 
330 
340 


REM CLEAR SCREEN 

PRINT" Te" 

REM SET COLOR MEMORY 
CB=37888+256%(PEEK(648) AND 2) 
FOR I=CB TO CB+5a5 

POKE 1.6 

NEXT I 

XP=20: ¥P=G 

SB=PEEK( 6489 #256 

REM MAIN LOOP 

GOSUEB 639088 

IF ¢XI=@) AND ¢Y¥I=@> AND ¢FB=@> THEN 208 
REM ERASE OLD DOT 

POKE SB+XP+22eYP., 32 

REM CALCULATE NEW ®% POSTION 
MP=KP+H I 

IF XP>21 THEN AP=2 

IF XP<@ THEN KP=21 

REM CALCULATE NEW ' POSTION 
YPst P+] 

IF YP>22 THEN ‘'P=0 

IF YPC@ THEN YP=22 

REM POKE NEW DOT 

POKE SB+kP+22#P, 91 

GOTO 208 


ANIMATING YOUR PLAYERS 


There are two facets to player animation. The first we have already 
discussed: moving a player around on the screen. The second involves 
changing the player itself so that it appears to be doing something. To 
animate a player, one or more of the characters that make it up are changed, 
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giving the illusion that it is moving. For example, this program produces a 
windshield with wipers that sweep back and forth. 


1@ DLY=15¢ 

26 REM BUILD WINDSHIELD 

3@ PRINT "3-—" 

49 PRINT "| \" 

59 PRINT "—~" 

6@ REM SWEEP WIPERS TQ RIGHT 

7@ FOR I=1 TO 4 

80 ON I GOSUB 198,242,200, 360 

96 FOR J=1 TO DLY : NEXT 

10@ NEXT 

11@ REM SWEEP WIPERS TO LEFT 

120 FOR I=3 TO 2 STEP ~1 

13@ ON I GOSUB 180.248, 390, 360 
14@ FOR J=1 TO DLY : NEXT 

1{5@ NEXT 

16@ GOTO 70 

17@ REM SHOW WIPERS AT 1@ O’CLOCK 
19@ POKE 7703.77 

198 POKE 7784, 32 

200 POKE 7785.77 

218 POKE 7786.32 

226 RETURN 

230 REM SHOW WIPERS AT 12 O’CLOCK 
248 POKE 7783, 32 

250 POKE 7704, 1@1 

260 POKE 7785.32 

270 POKE 7706, 101 

280 RETURN 

290 REM SHOW WIPERS AT 2 O’CLOCK 
302 POKE 7703.32 

310 POKE 7784,78 

328 POKE 778%, 32 

330 POKE 7726.78 

348 RETURN 

35@ REM SHOW WIPERS AT 3 O°CLOCK 
368 POKE 7784, 100 

370 POKE 7706, 120 

388 RETURN 


This program has several major parts. We will look at each in detail. 
Lines 30 through 50 clear the screen and display the windshield using 
PRINT statements. 

Lines 70 through 100 sweep the wipers from left to right. They are then 
swept back to the left by lines 120 through 150. These loops change the 
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display by calling, in turn, subroutines that put the wipers in particular 
positions by POKEing characters to the screen. Each subroutine erases the 
wipers from the screen and puts them in a new position. 

Two of the most important lines in the program are lines 90 and 140. 
These FOR-NEXT loops slow down the program. Without such delay 
loops, the display would change too quickly, reducing the movement to a 
blur. Choosing the lengths of the delay loops is crucial to animation. This is 
especially true of programs that produce complex movements. When devel- 
oping such programs, you can expect to spend much of your time fine- 
tuning the delays to create a display that moves smoothly at the speed you 
want. Try experimenting with our example program: The length of the delay 
loops is controlled by the variable DLY and the value of this variable is set in 
line 10. A lower value shortens the delay loops, making the display change 
more quickly. Increasing the value lengthens the delay loops, slowing the 
movement of the wipers. 

It is difficult to do complex animation with the built-in character set 
unless you are working with a very large player. In most cases you must 
move part of your player an entire character space to move it at all. This 
makes the motion somewhat jerky unless the player takes up a large portion 
of the screen. To produce more subtle movements with small players, you 
must design your own characters. Techniques for making and using your 
own characters will be discussed later in this chapter. 


Combining PRINTed and 
POKEd Graphics 


As we have seen, both the PRINT and the POKE methods have 
strengths and weaknesses in building graphic displays. For those programs 
that have players moving against a fixed background, a combination of 
PRINT and POKE often works best. Using PRINT statements to display 
graphics on the screen in combination with POKEs that jump to any 
location on the screen can make the development of a program much easier. 


Racetrack Game 


Figure 6-5 is a listing of a simple game called Racetrack, an adaptation 
of a common pencil-and-paper game. This program demonstrates some of 
the techniques we have discussed so far in this chapter. 
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16@ GOSUB 40606 

266 CR=15 

388 CC=2 

408 POKE SB+CC+CRK22,8 

368 POKE 37139,126 

1600 IF XS<>@ AND TID>XT THEN CC=CC+SGN¢CXS) ‘XT=TI+68/ABS¢XS) 
1189 IF YS<>@ AND TID>YT THEN CReCR+SGN(YS) 'YT=TI+68/ABS CYS) 
1120 IF CC<@ OR CC>21 THEN 4808 

1146 IF CR<@ OR CR>22Z THEN 4890 

115@ POKE BA, 32 

1268 BA=SB+CC+CR#2Z2 

1306 TG=PEEK CBR 

1400 IF TG<>@ AND TG<>32 THEN 5000 

1586 POKE BAL.O 

1686 IF TT>TITHEN 1000 

1700 TTaTI+3¢ 

1756 POKEV2, 129 

1888 GOSUB 63000 

1850 POKEV2,@ 

1908 XS*KS+X1 : ¥Ss¥S+'7T 

2080 COTO1900 

4006 IF CC<@ THEN CCsQ 

4108 IF CC>21THEN CCs2i 

4268 IF CR<O THEN CR=0 

4300 IF CRo@2THEN CRe22 

4508 BA=SB+CC+OR#22 

3000 POKE BA,& 

3168 FOR I=1T039@: NEXTI 

3208 POKE BA, 32 

3386 FOR [=1T0320°HEXTI 

3480 GETAS: IFAS<C>" "THENI OB 

3988 GOTOIeRE 

40080 PRINT"I"; 

40010 SBe2S56#PEEK (643) 

49020 CB@38400 

49636 IF SBM>7688THENCB=37909 

41006 REMFORI=SBTOSB+5@5 ‘POKEI. 32‘ NEXT] 
42000 FORI=CBTOCB+5@5 : POKEI, 6‘ NEXT] 
989298 X9=0:YS=0' XTsO: YT=0 

39838 RS=#37 152: RD=37154 ‘LS=37197 : ¥2296875 
36646 LMe=16:RMK=128  UMNAe4 : DMZ&S  MLaR12? 
30858 LMA=16°RMA=128: UMaa4 : DMA=S: MLaHl27 
3886 POKE3S6878. 15 

50100 PRINT" 3a Sy OR" 
39149 PRINT" ae 
39168 PRINT" #8 a a 


(continued) 


FiGure 6-5. Racetrack program 
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38188 PRINT" 
38286 PRINT" 
94226 PRINT" 
3924@ PRINT" 
58268 PRINT" 
39286 PRINT" 
30300 PRINT" 
58324 PRINT" 
39346 PRINT" 
36356 PRINT" 
98360 PRINT" 
39386 PRINT" 
59488 PRINT" 
30420 PRINT" 
38449 PRINT" 
31088 RETURN 
63908 POKERD, LMa: SSA=PEEKCRS SANDRMZ : POKERD, 255 
63018 SSH=SSZOR(PEEK(LSDAND6Q) 

63029 XI=SGN¢SSZANDLMZ>~SGN(SSAANDRMZD 

63030 YI=SGN(SSKANDUMA 2 ~SGN<SSZANDDMA > 

63058 RETURN 


“Le 


Figure 6-5. Racetrack program (continued) 


The pencil-and-paper version of Racetrack is played ona sheet of graph 
paper with the course drawn on it. Here is a typical course. 
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The VIC version of the game uses one character location on the screen 
for each square on the graph paper. 


The rules of the game are quite simple. 


1. The car moves in both the horizontal and vertical dimensions at a 
speed of a certain number of squares per second. It can move in both 
dimensions at once. For example, to travel diagonally it can move at 
a rate of one square up and one square right per second. 


2. Oneach turn (about twice a second), the player can speed up or slow 
down by a rate of one square per second in each dimension. For 
example, if a player is moving at a rate of 3 squares up and 1 right, 
the speed can be changed to 4 up, | right; 2 up, | right; 2 up, 2 right; 2 
up, 0 right; and so on. 


3. If the car goes off the track, it crashes and the game is over. 


The Racetrack program listed in Figure 6-5 is a somewhat crude 
version of the game, but it does provide some practical examples of tech- 
niques you can use in writing graphics and animation programs. It uses 
PRINT to display a playfield that was originally developed as a screen 
sketch. It also contains some examples of using POKE to move the player 
and PEEK to detect collisions. We'll start our examination of the program 
by introducing the main variables. 


Variable 
Name . Description 
CC Car Column: the column number on the screen where 
the car is to be displayed 
CR Car Row: the screen row where the car is located 
TT Test Time: the value that TI (the time variable) will 


have when it is time to test the joystick for the next turn 
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XS X Speed: the car’s speed in the X dimension: negative is 
toward the left, positive toward the right 

XT X Time: the value of TI when it is time to move in the 
X dimension 

YS Y Speed: the car’s speed in the Y dimension: negative is 
up, positive is down 

YT Y Time: the value of TI when it is time to move in the 


Y dimension. 


Lines 1000 through 2000 are the main processing loop of the program. 
The program runs continuously through the code, looking for something to 
do. On each pass it checks the current time to see if it should move the car 
(lines 1000 and 1100) or look at the joystick (line 1600). If any of these things 
need to be done, the timer value for the next occasion is also set. 

In lines 1120 and 1140 the program checks to ensure that the car has not 
gone off the screen. Lines 1300 and 1400 make sure that the car is not about 
to collide with a wall. If either of these is true, the program goes to the 
“crash” routine at line 4000. 

Lines 1750 and 1850 make use of the VIC chip’s ability to sound a 
“tock” each time the program tests the joystick. (The VIC 20’s sound 
capabilities are discussed in Chapter 7.) 

The “crash” routine (lines 4000 through 5500) brings the car back onto 
the screen if it has gone off (lines 4000-4500), and makes it flash at a rate of 
about once per second (lines 5000-5300). As soon as the user presses any Key, 
line 5400 starts the game again. 

Racetrack is both an example of graphics techniques and a base on 
which to build your own experiments. You might want to try printing a 
readout of the number of turns or seconds used in the infield, modifying the 
course, or making sure that the car has really gone all the way around the 
course, instead of doubling back to the finish line. 


CUSTOM CHARACTER SETS 


The VIC 20 can easily change the shapes of the characters that appear 
on the screen. Most personal computers require hardware changes to use a 
different set of characters, but the VIC allows you to create your own 
characters, then switch over to your character set with a simple POKE. In 
this section we will show how the character set is defined and how to design 
your own characters and make them appear on the screen. 
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How Characters are Displayed 


First, let’s take a brief look at how television works. If you look closely 
at your television screen, you'll notice that the picture is made up of 
individual dots arranged in rows. There are about 500 dots on each row and 
about 500 rows on the screen. Inside the picture tube, a beam of electrons 
sweeps back and forth, one row at a time, lighting up each dot as it passes. 
The incoming TV signal determines the brightness and color of each dot. 
Although the process of generating and receiving a TV signal involves much 
more, all you need to know here is that the television picture is made up of 
rows of dots. 

The actual patterns of the rows and dots to be displayed are stored in 
the VIC’s memory at the locations specified in Figure 6-4. The VIC Chip 
reads these locations and generates the signals that are sent to the television. 


Character Memory 


This leads us to the question of how the VIC chip knows which dots to 
turn on. You will recall that the characters displayed on the screen are stored 
in the screen memory area. As it “paints” the screen, the VIC chip steps 
through screen memory, picking up the characters one at a time. To deter- 
mine which dots to turn on for a particular character, it looks in a table. This 
table was worked out by Commodore, and stored in a special memory chip 
in the VIC 20. This chip, called a ROM (Read-Only Memory), retains the 
information that was stored in it at the factory, even when power is turned 
off. The area occupied by this table is called character memory. With a 
POKE, your program can tell the VIC chip to use a different area for 
character memory—one that you can fill with your own table. Finally, the 
VIC chip must know what color to make the character. This information 
comes from color memory. We’ve already examined the screen and color 
memory areas, so we'll look at character memory, then discuss how to use 
these areas to create displays. 


FORMAT OF CHARACTER MEMORY 


Each character on the screen is made up of a matrix that is eight dots 
wide and eight high. A magnified view of the letter “A,” for example, would 
look like this. | 
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The 8 X 8 format was chosen because each row of the character 
conveniently fits into one byte of memory, and the eight rows make a nice 
round number in the computer’s binary number system. This format also 
greatly simplifies custom character design. You can lay out your character 
onan ordinary sheet of graph paper and easily convert a row to its value and 
location in character memory. 

The eight bytes that make up the rows of a character are stored next to 

each other in character memory, with the top row first. Each dot on a row 
corresponds to one bit, with the bit for the leftmost dot having the highest 
binary value, 128. A bit value of 1 means the dot is “on” (displayed in the 
character color). A value of 0 means the dot is “off” (displayed in the screen 
color). This is what the letter “A” looks like in character memory. 


Displayed Dots Binary Decimal 


00011000 24 
00100100 36 
01000010 66 
01111110 126 
01000010 66 
01000010 66 
01000010 66 
00000000 0 
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Here, for comparison, is the checkerboard character. 


Displayed Dots Binary Decimal 


10101010 170 
01010101 85 
10101010 170 
01010101 85 
10101010 170 
01010101 85 
10101010 170 
01010101 85 


Notice that the checkerboard character’s dots extend to the edge of the 
matrix, while the “A” has space at the sides and bottom. This built-in space 
is the only space between adjacent characters on the screen. The 8 X 8 
matrices of characters displayed on the screen actually touch those of 
adjoining characters, making the screen a continuous field of dots. Here isa 
magnified view of a small section of the screen. 


Column 4 Column 5 


Row 3 
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This contact between characters is what enabled us to build players 
made up of multiple characters. This also means that you must include 
spaces in some of your character definitions. If, for example, you wanted to 
display the Greek “lambda” character in a scientific formula, you might 
define it like this. 


Displayed Dots Binary Decimal 


00000000 0 
01000000 64 
01000000 64 
00100000 32 
00010000 16 
00101000 40 
01000100 68 
00000000 0 


Like Commodore, we left “white space” at the right and the bottom of 
the lambda. This makes it line up with the other characters when displayed. 


MISSING DOTS 


Some quick arithmetic will tell you that if there are eight dots in each 
row of acharacter and 22 characters on each line of the screen, this accounts 
for only 176 dots. We stated earlier that there are about 500 dots on each row 
of the TV screen. What happened to the others? Some of them are lost 
because the electron beam in the picture tube actually sweeps a little beyond 
the edges of the screen. Some of them are taken up by the border of the 
display. The main reason for the difference, however, is that each dot 
displayed by the VIC is two “TV dots” wide and two “TV lines” high. 
Throughout the remainder of this book, we will use the word “dot” to refer 
to a dot displayed by the VIC, rather than a “TV dot.” 
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FINDING A CHARACTER’S DEFINITION 
IN CHARACTER MEMORY 


Character definitions are stored in character memory by screen code. 
The screen code is, in effect, a subscript for the character memory array. 
Like screen and color memory, the character memory “array” is not a 
BASIC variable, but simply a way to visualize the character memory area. 

As mentioned earlier, the eight bytes that define a character are stored 
in adjacent locations in color memory with the top row first and the bottom 
row last. Here is how the first few bytes of Commodore’s built-in character 
memory, which starts at location 32368, are used. 


Location Contents 

32768 Top row of “@” 
32769 Second row of “@” 
32770 Third row of “@” 
32771 Fourth row of “@” 
32772 Fifth row of “@” 
32773 Sixth row of “@” 
32774 Seventh row of “@” 
32775 Bottom row of “@” 
32776 Top row of “A” 
32777 Second row of “A” 
32783 Bottom row of “A” 
32784 Top row of “B” 


32785 Second row of “B” 


This layout of character memory uses the following formula to find the 
definition of a particular row for a given character: 


Location = start of character memory + row + 8 * screen code 


EXPLORING CHARACTER MEMORY 


The following program lets you choose a character and magnify it on 
the screen. The program also displays other information—such as where the 
character resides in character memory and the decimal values of the rows— 
that will help you become more familiar with how characters are designed. 
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rn OE 
Oooo ee 


| 19g PIX$(Q)="""“PIX$(1)="s mt 
: 11@ PRINT "CHARACTER MAGNIFIER" 
12G REM GET A CHARACTER 
13@ PRINT"SELECT A CHARACTER"; 
149 GET KV$:IF K¥$="" THEN 140 
150 GOSUB 420 
16G REM IGNORE UNPRINTABLE CHARACTERS 
170 IF SC=128 THEN 140 
189 REM FIND CHARACTER’S DEFINITION IN CHARACTER MEMORY 
198 CB=32769+S%SC 
| 200 PRINT "TICHARACTER: "Kis 
| 219 PRINT "ASCII VALUE: "JASC<KYS) 
228 PRINT "SCREEN YALUE: ";SC 
530 PRINT "CHARACTER STARTS AT: "SCR 
| 240 PRINT 
! 250 REM PRINT MAGNIFIED YIEU 
| 260 PRINT “sid 
| 270 FOR I=CB TO CB+? 
| 298 ROW=PEEK¢I) 
290 FRS=RIGHTSC<" "4STRECROW) 9,6) 
300 OS$="qi0 mE" 
31@ REM TRANSLATE A ROW OF BITS TO A STRING 
320 FOR J=7 TO @ STEP -1 
330 BIT=SGNCROW AND 2t> 
340 OS$=0S$+PIX$<BIT) 
350 NEXT J 
360 OS#=0S¢+" id me" 
| 378 PRINT OSS+FRE 
| 380 NEXT I 
390 PRINT "lig rz 
| 490 PRINT:PRINT:PRINT:GOTO 130 
| 410 REM TRANSLATE KEYSTROKE TO SCREEN CODE 
: 420 SCH=ASC(K'/$) 
430 IF SC ¢ 32 THEN SC=128: RETURN 
440 IF SC < 64 THEN RETURN 
450 IF SC ¢ 96 THEN SC=SC-64: RETURN 
460 IF SC ¢ 128 THEN SC=SC-32 : RETURN 
470 IF SC < 168 THEN SC=128: RETURN 
480 IF SC ¢ 192 THEN SC=SC-64 : RETURN 
498 IF SC ¢ 255 THEN SC=SC-128: RETURN 
500 SC=94: RETURN 


This program will also be helpful in providing practical examples for 
the next section, so you should save a copy of it. 


A good way to start designing characters is with a sheet of graph paper 
(4 or 5 lines per inch works best). Draw a square enclosing an area with eight 


Designing Characiers 
| 
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boxes on each side to match the VIC’s 8 X 8 character matrix. Then number 
the columns so that it looks like this. 


=| 
a 


You now have an area that corresponds to one character on the screen, with 
each box representing one dot. 

Now fill in the boxes for the dots that should be “on” (set to the 
character color). Here is an example of a simple character. 
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When you are satisfied with the dot pattern, calculate the values of the 
rows in screen memory. For each row, add the numbers at the top of those 
columns whose dots are “on.” Here are the values for our stick man. 


Binary Decimal 
00111000 56 
00111000 56 
00010000 16 
01111100 124 
00010000 16 
00010000 16 
00101000 40 
00101000 40 


Your new character is now ready for a screen test. 


USING YOUR CHARACTERS ON THE VIC 


To use your custom characters on the VIC, there are three steps you 
must take. 


1. Your program must set aside an area in memory to hold your 
character memory. 


2. Your character patterns must be loaded into character memory. 


3. Your program must tell the VIC chip to start using your character 
memory instead of Commodore’s. 


In order to simplify your initial experiments, you can start by making a 
copy of Commodore’s characters, replacing them one by one with your own. 
To get started, enter and run the following program: 


1 POKE 52.24:POKE 56,24:CLR 

2 PRINT "CBABCDEFGHIJKLMNOPORSTUYWAYZCE) Te!" 

3 PRINT CHR#(34> | CHRS634) 5; CHRS(28) | "HERR COKRt I~"; 
4 PRINT "/8123456789: ; 42>?" 

o POKE 36869. 254 

6 FOR I=6144 TO 7679 : POKE I, PEEK(26624+1> + WEXT 
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Let’s examine this program line by line. Line | changes two of BASIC’s 
internal pointers to make it appear as if less program memory is available. 
(The method for choosing this POKE value will be explained later.) It also 
includes a CLR statement, which forces BASIC to erase any variables that 
have been defined and to adjust its other internal pointers to the reduced 
memory size. The POKEs and CLR must be done before any variables are 
defined in the program or the values assigned to those variables will be lost. 
It is best to make this statement the first one in any program that defines its 
own characters. 

Lines 2 and 3 set up an area in screen memory where we can see the 
results of changing character memory by PRINTing the characters that will 
use our custom character set. 

Line 4 tells the VIC chip to start using this new area. When this 
statement is executed, the characters on the screen will change to gibberish 
because we have not yet filled in our character definitions. 

Line 5 loads our new character memory with the first 192 characters 
from the Commodore set. This includes all 128 nonreversed characters and 
the first 64 reversed characters. This line will take a few seconds to execute. 
When the program starts copying the reversed characters, you can see the 
characters in the top lines change as their definitions are filled in. 

We chose to copy both the nonreversed and reversed characters be- 
cause the VIC generates its cursor by turning bit 7 (the “reverse” bit) in the 
character off and on. If we had copied just the nonreversed characters, the 
character under the cursor would be changing from nonreversed to nonre- 
versed, which doesn’t show up. We took only the first 64 reversed characters 
because our character memory overlaps screen memory ona “small” VIC. 
On a VIC with less than 8K of added memory, screen memory starts at 
location 7680. Our new character memory runs from location 6144 to 
location 8192, but if we had copied all 128 reversed characters, some of them 
would have their definitions stored in screen memory. If we had taken away 
more memory to redefine all 256 characters, there would be little room left 
for a program on a VIC with no added memory. 

In the examples that follow, we will be making our changes in the 
reversed characters, leaving the normal characters intact. This will make 
program listings and immediate mode statements readable on the screen. 

As our first experiment, we’ll replace the @ sign with our stick man 
character. To change the character memory for @, enter the following 
POKE statements. You should type the POKE statement once and keep 
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reusing it with screen editing to avoid rolling the sample characters off the 
top of the screen. 


POKE 7168.56 
POKE 7169,56 
POKE 7178, 16 
POKE 7171,124 
POKE 7172,16 
POKE 7173,16 
POKE 7175.48 


As each POKE is entered, one row of the @ character is changed until the @ 
sign is replaced with our stick man. Now, type CTRL-RVS ON, then @; the 
VIC will display a stick man. Press the CRSR LEFT key until the cursor is over 
the stick man. Instead of changing back and forth between reversed and 
nonreversed @ signs, the character changes from @ to our stick man and 
back. 

Now you're ready to experiment with characters of your own design. 
Simply follow the steps we outlined above: POKE the values you calculated 
on the worksheet into character memory, and use CTRL-RVS ON to make the 
VIC display your character from the reversed portion of character memory. 
We recommend that you experiment with several characters before putting 
them to work in programs. 


Design Aids for Custom Characters 


If you expect to make extensive use of custom characters, you will find 
it helpful to have a character editor utility to help you. Such a program 
should display the character in both normal and magnified views, allow you 
to change individual dots, and calculate the POKE values and locations for 
you. You can write your own utility or you can purchase one, such as 
Commodore’s “Programmable Character Set and Game Graphics Editor.” 

If you wish to write your own utility, several parts of the program can 
be taken from the examples in Chapters 5 and 6 of this book. The Character 
Magnifier program in this chapter can be used to display the character, and 
the Moving Dot program can be used as a base for the subroutine to change 
the dots. (Hint: Use a delay loop to flash the magnified dot off and on, and 
use the Fire button on the joystick to change the dots.) 

If you plan to use custom characters only occasionally, using the 
worksheet to lay out your characters and calculating the POKE values by 
hand should be sufficient. 
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Writing Programs that Make Use 
Of Custom Characters 


Once you have your characters defined, you will want to put them to 
work for you in programs. Programs that use custom characters are not 
much different from those that use the standard character set. You still have 
the option of using either PRINT or POKE (or both) to build your displays. 
There are two differences, however: the reduced memory available and the 
absence of the standard character set. 


REDUCING MEMORY LOSS 


Custom characters use up memory in two ways. Some memory must be 
set aside as character memory. In our examples we use an area of 2048 bytes, 
but you can reduce this to as few as 512 bytes by using only 64 custom 
characters. The section “Changing the Location of Screen and Character 
Memory,” near the end of this chapter, explains how to do this. 

Memory is also needed to hold the program and DATA statements to 
load your custom characters. This loss will not be large if you use only a few 
characters, but can be significant if you are defining many. A DATA 
statement to hold a custom character definition will use from 25 to 40 bytes, 
depending on the number of digits in its values. Remember that spaces in a 
DATA statement are stored with the program, so you can reduce the amount 
of memory used by eliminating them. While we generally recommend that 
you use spaces in your programs to improve readability, the commas that 
separate the values in DATA statements can do that job adequately. 

You can make more memory available to your main program by 
splitting it into two programs: one to build the characters and one to do the 
main work. If you run the character builder first, the program can be 
replaced by the main program when it is finished. You can even do this 
automatically, by placing a LOAD statement in the character builder. If you 
are loading the program from tape, save the character builder first, then the 
main program (the order does not matter on a disk drive). Make the last two 
statements of the character builder a CLR and a LOAD. 


16@ REM LOAD CUSTOM CHARACTERS 
118 DATA 6,16 
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349 REM PROTECT MEMORY 

350 POKE 52,24 POKE 56,24 
¢55 REM FORGET VARIABLES 
368 CLR 

365 REM START THE FUN 

378 LOAD "MAIN" 


The VIC will load and run the program called “MAIN.” The CLR is 
needed to erase any variables defined in the character builder. BASIC stores 
variables in memory immediately after the program text. Because your main 
program will probably be larger than the character builder, part of it will be 
stored in the area occupied by the character builder’s variables. If the CLR 
were not there and you had a variable in the main program with the same 
name as one in the character builder, BASIC would store values assigned to 
that variable in the program’s area. The results of damaging a program this 
way are unpredictable, but you can avoid them easily: Always include the 
CLR statement before the LOAD, to tell BASIC to “forget” the. old 
variables. 


ACCESSING THE BUILT-IN 
CHARACTER SET 


Your program may also need to work around the loss of the standard 
character set. If your program displays messages, you may still be able to 
make use of the built-in character set. If you are not redefining all 256 
characters, simply start your custom character set at location 7168; the 
built-in character set is made available by printing reversed characters. This 
technique exploits a side effect of the VIC’s hardware design. The section 
“VIC Chip’s Window into Memory,” later in this chapter, explains why it 
works. Remember that the reverse control is reset at the end of every line; 
your program should start each message with a RVS ON character. 


1@0 REM DEMONSTRATE MESSAGES WITH CUSTOM CHARACTERS 
119 REM START CUSTOM CHARACTERS AT 7168 
120 FOKE 36869, 255 


4@@ REM DISPLAY FROG CHARACTER 
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416 POKE 7168.... 


680 PRINT "THIS IS A FROG” 


800 REM DISPLAY A RABBIT 
$18 POKE 71GB: eae 


920 PRINT "THIS IS A RABBIT" 


Messages from BASIC itself may still be a problem: If you redefine the 
alphabetic characters to build players, a simple READY message may look 
like Egyptian hieroglyphics. This should not cause any serious difficulty, 
except when you are debugging your program. If you interrupt it with the 
STOP key, or if BASIC finds an error, the messages produced may be 
somewhat difficult to read. You can return to the normal character set by 
POKEing to location 36869 (POKE a value of 192 for a VIC with 8K or 
more of added memory; use a value of 240 for smaller VICs) and then 
POKEing the value required by your program before continuing. You 
should also note that the RESTORE key will bring back the normal character 
set, but leave your custom character memory intact and still protected from 
BASIC. Unfortunately, it will also clear the screen and erase the error 
message, so it’s not very useful while debugging programs. 


Animating Players 


A player built from custom characters can be made to move by modify- 
ing its patterns in character memory, but this technique will usually be too 
slow if done in BASIC. (Machine language programs can run fast enough to 
handle it.) A simpler and faster approach is to define more than one version 
of the player in character memory. Your program can then make it move by 
changing the version displayed with a POKE to screen memory. 

As an example of this method of animation, we have taken our stick 
man and put a little meat on his bones by building him with four characters 
instead of one. 
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To liven him up a bit, we'll make him wave one arm by defining two 
more versions of the character that contains the arm. 


To observe him in action, enter the following program: 


169 CLR: POKE 32,24:POKE 56,.24°CLR 

195 DLY=589 

11@ POKE 36863, 254 

115 REM COPY UNREVERSED CHARACTERS 

12@ FOR I=6144 TO 6668 : POKE I,PEEK(26624+1> : HEAT I 
19@ SBe2S56#PEEK (646) ‘CB=37888+256e(PEEK(648> AND 2) 
135 REM CLEAR SCREEN AND SET UP DISPLAY AREA 

149 PRINT "SJaaA" 

15@ PRINT "siV¥W" 

168 REM LOAD TOP HALF OF PLAYER 
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17@ FOR I=7168 TO 7183 : 


180 DATA 3.3.3.1.7.15,23,23 
139 DATA 128, 136, 136,8. 248, 192, 192.192 

200 REM LOAD BOTTOM HALF OF PLAYER 

FOR 1=7344 TO 7359 : READ X : POKE I.X : NEXT I 
DATR 19,.19.2,2.2,2,6.,8 
DATA 128,128,128, 128,128.128,192,8 
REM LOAD “EXTRA ARMS’ 
FOR J=7192 TO 7207 : READ X : POKE J,X% : NEXT I 
DATA 128,128, 132,8,248, 192,192,192 

DATA 128,128, 128.8, 252, 192,192,192 

POKE SB+1,129 

FOR IT=1 TO DLY : NEXT I 
POKE SB+1.131 

FOR I=1 TO DLY : NEXT I 
POKE SB+1,132 

FOR I=1 TO DLY : NEXT I 
POKE SB+i.131 

FOR I=1 TO DLY : NEXT I 
368 GOTO 280 


218 
228 
230 
240 
258 
260 
278 
288 
298 
388 
318 
320 
338 
346 
358 


RERD X : POKE I.% : NEXT I 


When you run this program, the new stick man will be placed in the 
upper left corner of the screen and his arm will begin to wave. 


MORE COMPLEX ANIMATION 


While the VIC is capable of much more complex animation than our 


stick man example shows, the techniques are the same. Your program can, 
for example, have several players in motion at once, or have one player 


making different motions simultaneously. Either of these can be done by 
predefining the movements with several custom characters. 

Let’s look at an example of two players in motion at once. We’ll create 
another stick man who will wave to the first one. Change the stick man 


program so that it looks like this. 


189 
119 
128 
130 
149 
158 
160 
176 
188 
198 


CLR: POKE 32,24:POKE 36.24:'CLR 
GOSUB 532 


REM 
FOR 
REM 
FOR 
REM 
FOR 
REM 
FOR 


LEFT MAN WAVES 


J=1 TO 2 : GOSUB 220 : 


BOTH MEN WAYE 


J=1 705 : GOSUB 320 : 


RIGHT MAN WAVES 


J=1 70 2 + GOSUB SaQ : 


BOTH MEN REST 
J=1 TO 19@@0 : HEXT J 
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HEAT J 
NEAT J 
NEXT J 


200 
210 
220 
230 
249 
250 
260 
270 
280 
290 
300 
310 
320 
230 
340 
350 
360 
378 
280 
390 
4g0 
410 
420 
430 
440 
450 
460 
470 
489 
490 
509 
510 
520 
538 
540 
550 
560 
570 
580 
590 
620 
610 
620 
630 
640 
650 
660 
670 
eRe 
690 
700 
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GOTO 138 

REM WAYE LEFT MAN’S ARM ONLY 
POKE SB+1,123 

FOR I=1 TO DLY : NEXT I 

POKE SB+1,131 

FOR I=1 TO DLY : NEAT I 

POKE SB+1,132 

FOR I=1 TO DLY : NEXT I 

POKE SB+1. 131 

FOR I=1 TO DL : MEAT I 
RETLRH 

REM WAYE BOTH MEN’S ARMS 

POKE SB+1,129 

FOR I=1 TO DLY/2 : NEXT I 
POKE SB+6, 131 

FOR J=1 TO DLY/’2 : NEXT I 
POKE SB+1,131 

FOR I=1 TO DLY/2 : NEXT I 
POKE SB+6, 1232 

FOR I=1 TO MLY/2 : MEAT I 
POKE SB+1,132 

FOR I=1 TO DLY/2 : NEAT I 
POKE SB+6.131 

FOR I={ TO DLY/2 : NEXT I 
POKE $B+1,131 

FOR I=1 TO DLY/2 : NEAT I 
POKE SB+6é, 129 

FOR I=1 TO DLY/2 : NEXT I 
RETURN 

REM WAVE RIGHT MAN’S ARM ONLY 
POKE SB+6, 131 

FOR I=] TO DLY : NEAT I 

POKE SB+6. 132 

FOR [=1 TO DLY : MEXT I 

POKE SB+6, 1314 

FOR I=1 TO DLY : NEXT I 

POKE SBE+6, 129 

FOR I=1 TO DLY : NEXT I 
RETURN 

REM INITIALIZATION 

REM SET DELAY LOOP LENGTH 
DLY=100 

REM POINT V1.0. AT MY CHARACTERS 
POKE 36869, 254 

REM COPY UNREVERSED CHARACTERS 
FOR I=6144 TO 6668 : POKE I,PEEK(26624+I> : NEXT I 
SB=Z256#PEEK (648) ‘CB=37888+256e(PEEK (648) AND 2) 
REM CLEAR SCREEN AND SET UP DISPLAY AREA 
PRINT"'S@3AM@ Gf wep" 

PRINT" MavWS =| (GR/Wa" 

REM LOAD TOP HALF OF PLAYER 
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71@ FOR 1=7168 TO 7183 : READ X : POKE I,X : NEXT I 
r28 DATA 3,3,3,1,7,515.23,23 

738 DATA 128,136, 136,98, 248,192, 192, 192 

74@ REM LOAD BOTTOM HALF OF PLAYER 

798 FOR l=7344 TO 7359 : READ X : POKE I,% : NEXT I 
768 DATA 19,19.2,2,2,2,6,9 

r7@ DATA 128,128, 128,126,128, 128,192.08 

reQ REM LORD “EXTRA ARMS’ 

730 FOR I=7192 TO 7207 : READ ¥ : POKE I. : NEXT I 
866 DATA 128,128,132,8,240, 192,192,192 

816 DATA 128,128, 128.9, 252, 192, 192,192 

828 RETURN 


When you run the program, the stick man on the left side of the screen 
starts waving. After a moment, the one at the right starts to wave back. Then 
the man on the left stops waving, followed by the one on the right, and the 
cycle repeats. 

The three subroutines that make the men wave (lines 210, 310, and 490) 
are the key to the motion. The first one, starting at line 210, makes only the 
figure on the left wave. 

The second subroutine, which begins with line 310, causes both of the 
men to wave. Notice that the man on the left moves, then the program 
pauses for about half the time it did when moving just one arm before 
moving the man on the right. After the right-hand man’s arm moves, the 
program again delays only half as long as before. This keeps the men moving 
at about the same speed, even though both are waving together. The man on 
the right also waves in the opposite direction from the man on the left, so 
they don’t appear to be moving in “lock-step” with each other. These small 
differences make the display more interesting. 

The last subroutine, starting at line 490, moves only the right-hand stick 
man, so the one on the left stops waving. 


HIGH-RESOLUTION GRAPHICS 


With high-resolution graphics, your program deals with individual 
dots on the screen, instead of characters. High resolution can be used to 
draw finer lines on.the screen or to smooth the motion of a player, since it 
can move in increments of one dot, instead of a whole character space. 

Using high-resolution graphics on the VIC is much like using custom 
characters. In fact, to the VIC chip, they are exactly the same; the standard 
character display is a high-resolution display. The main difference is one of 
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programming technique. Using custom characters, you set up the character 
memory and change the display by altering screen memory. In high- 
resolution displays, screen memory usually stays constant, but character 
memory changes. 

To understand high-resolution graphics, let’s review our discussion of 
character memory, but with a different perspective. From a text display 
point of view, we think of screen memory as containing characters to be 
displayed, with character memory holding the dot patterns that represent 
the characters. In high-resolution terms, character memory becomes a 
dot-by-dot representation of the display, and screen memory is simply a set 
of pointers to remind the VIC chip of where it is on the screen. In both cases, 
the VIC chip is doing exactly the same thing: taking characters from screen 
memory and using them to look up dot patterns in character memory. Only 
the description of the process is different. Recall how we built one player 
from several custom characters in the last section. You can think of high- 
resolution graphics as using the entire screen as a single “super-player.” 

High-resolution graphics have one serious drawback: They use a large 
amount of memory. In fact, to completely map the screen in high-resolution 
mode would take 4048 bytes of character memory. Since there are only 
about 3500 bytes free on an unexpanded VIC, this does not leave much 
room for your program. It is possible, however, to experiment with high 
resolution without expanding memory: Simply use only a small portion of 
the screen. The techniques we used for defining a custom character set can 
also be used to set up a 64 X 64 dot area for high-resolution experimentation. 

The steps in preparing this high-resolution work area are similar to 
those for establishing a custom character set. The Setup program listed 
below may seem familiar, because it was written by making some editing 
changes to the program we used to set up our custom character work area. 


10@ REM HIGH RESOLUTION "SETUP" PROGRAM 

11@ REM PROTECT CHARACTER MEMORY 

126 POKE 52,24:POKE 56.24°CLR 

130 POKE 36863, 254 

148 REM COPY UNREVERSED CHARACTERS 

156 FOR I=6144 TO 7167 : POKE I,PEEKC26624+]> : NEXT 
i168 REM CLEAR CHARACTER MEMORY 

174 FOR I=7168 TO 7679 : POKE 1.4 : NEAT 

186 REM PREPARE SCREEN MEMORY 

19@ PRINT "OMBHPK 6a" 

208 PRINT "SAIQY!919" 

216 PRINT "SBIRZ"; CHRS¢34>;CHRS(34): CHRE( 20); "#2: " 
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226 PRINT "@°KSC#+3; " 
238 PRINT "SOLTE$, 4<" 
246 PRINT "SEMUJ4-Se" 
2580 PRINT "SFNV TE. 6>" 
268 PRINT "SG0We" 777" 


Now the upper left corner of the screen has become a high-resolution work 


area, where you can start to experiment. 


Changing the Dots in the 
High-Resolution Work Area 


After running the Setup program, the portion of character memory 
that defines the work area looks like this. 


Memory Memory Memory 
Location Column Location Column Location Column 
Row O=eAN THON onermamyo..e. Sr L2ASTAD 
0 7168 7232 7616 
I 7169 7233 7617 
2 7170 7234 2. , 7618 
3 7171 7235 7619 
4 7172 7236 7620 
60 7228 7692 7676 
61 7229 7693 2. , 1677 
62 7230 7695 7678 
63 7231 7695 7679 


To change a dot on the screen, your program must find the right 
location to POKE and the value to put there. The 64 bits of the X dimension 
are broken up into eight bytes of eight bits each. To find the correct column 
of bytes, use the following formula: | 


450 COL=INT¢H/8) 


Since each column of bytes is 64 rows high, the column number must be 
multiplied by 64. The calculation to find the right location to POKE is 


469 PL=7168+7+64#COL 


Downloaded from www.Manualslib.com manuals search engine 


Chapter 6:Graphics 244 


The bit within that byte is the remainder of the division by 8 we did to 
find the column. To calculate the right bit, use 


466 PL=7168+'7+644#COL 
470 BIT=7-CK~COL#S) 


We subtracted the remainder from 7 because our high-resolution 
columns are numbered from left to right, but the bits in a byte are numbered 
from right to left. 

Just knowing the number of the bit is not enough. Because it will be 
using POKE to change the display, your program must calculate the number 
that corresponds to that bit. Remember that each bit in the byte represents a 
power of 2. 


Bit Number 7/6/1514] 3/2/11] 0) 


Value for POKE 128 64 32 16 8 4 2 1 


Since this is the case, you can easily convert from the bit number to the 
POKE value using the exponentiation operator. 


46@ P¥=2TBIT 


Your program cannot simply POKE blindly into the byte it has found 
because there are seven other bits there that you don’t want to disturb. To 
change just one bit, you must PEEK the byte to be changed, modify only the 
correct bit, and then POKE it back. To change only a single bit, you can use 
the AND and OR operators. For example, to set a bit to 0 (making its dot 
the background color), you can use a variation of the masking technique 
that was used to isolate the bits for joystick switches. 


30@ POKE PL.PEEK“PL) AND NOT PY 


Notice the use of the NOT operator. When we were isolating the 
joystick switches we used the value of the bit directly. That produced a mask 
in which the bit we wanted was a 1, and all the others were Os. This time we 
are using a mask in which the bit we are interested in is a 0 and all the others 
are ls. The AND will force that bit to 0 and leave the others undisturbed. 
Suppose we want to turn off bit 3 in location 7432, which currently contains 
a value of 43. We could use a BASIC statement like this. 
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1@ POKE 7432,PEEK‘7432) AND NOT 2f3 


| t______ 90001000 
11110111 
AND 
00101011 
00100011 


When we POKE the result back into location 7432, only bit 3 has changed. 
The other bits kept their old values. 
To change the dot back to the background color, use the OR operator. 


19 POKE 7432,PEEK(7432) OR fy 


ee 
|e 
00101011 


As before, only the value of bit 3 is changed. 

This is a lot of work just to change one bit. However, since there are 
only eight bits in a byte, there are only eight possible values for the AND 
mask, and eight for the OR mask. Since there are only eight of each type of 
mask, it is practical (and much faster) to calculate them in advance and store 
them in tables. The program fragment that follows can be used as a subrou- 
tine in programs that produce high-resolution displays. It creates two arrays 
of masks, called M1% (Make 1) and M0% (Make 0). 


106 FOR I=@ TO 7 

118 Mid¢l=2T] 

126 M@xnCT=SNOT M1n<T> 
13@ NEAT I 


Notice that our array indexes, like our bit numbers, start with 0 because 
we calculate the bit number using the remainder of a division, which can be 
0. The arrays are specified as integer variables because BASIC does Boolean 
operations with integers. 

Using these precalculated masks not only makes programs faster, but 
also makes them easier to read. Compare our earlier examples for setting 
and resetting bits with statements that perform the same operations using 
the table. 
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16 POKE 7432,PEEK¢7432) AND M@x¢3> 
26 POKE 7432. PEEKC7432) OR Mix¢3) 


Even with techniques like precalculating masks, BASIC is usually too 
slow for animation of high-resolution displays; there are just too many bits 
to be changed in order to move a player around the screen. This kind of 
high-speed “bit juggling” is best done in machine language. BASIC is, 
however, quite useful for displays that don’t move, such as drawings and 
graphs. For example, the following program will draw a triangle on the 
screen: 


198 REM PROTECT CHARACTER MEMORY 

11@ POKE 52.24:POKE 56.24: CLR 

124 POKE 36863,254 

138 REM COPY UNREVERSED CHARACTERS 
14@ FOR I=6144 TO 7167 : POKE 1, PEEK(26624+1> ‘< NEXT 
15@ REM CLEAR CUSTOM CHARACTERS 

168 FOR I=7168 TO 7679 : POKE I.@ : NEXT 
17@ REM BUILD HI-RES WORK AREA 

1880 PRINT "CJSGHPX ¢a3" 

190 PRINT “@AIOW! 919" 

20@ PRINT "SBIRZ" | CHRS634> ; CHRS(34) | CHRS( 20); "#2: " 
21@ PRINT "@CKSC#+3; " 

220 PRINT "SLTE¢,4<" 

230 PRINT "SEMUJ“-S=" 

24@ PRINT "SFNYT%,.6>" 

20 PRINT "@G0W+"/7?" 

260 REM BUILD MASK ARRAY 

2r@ FOR I=@ TO ?:M1a¢Tosetl : NEXT I 
280 REM DRAW BOTTOM OF TRIANGLE 

298 Y=63 

384 FOR *=8 TO 63 

318 GOSUB 459 

328 NEXT 

338 REM DRAW LEFT SIDE OF TRIANGLE 
348 FOR X=@ TO 38 

350 Y = 63~K¥2 | 

368 GOSUB 438 

378 NEXT 

380 REM DRAW RIGHT SIDE OF TRIANGLE 
398 FOR X=31 TO 62 

409 Y = 63-(62-KI#2 

416 GOSUB 456 

428 NEXT 

43@ END 

449 REM BIT SETTING SUBROUT INE 

450 COL=INTCX/S> 

460 PL=7168+7+648COL 
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47@ BIT=7~CK~-COL#ED 
48@ POKE PL,PEEKCPL) OR M1x<BITD 
494 RETURN 


When you run the program you will see that the triangle is drawn much 
too slowly to be useful in a fast-action game. It would be practical, however, 
for use in an educational program that taught geometric shapes. 


MULTICOLOR GRAPHICS 


While the combination of standard graphics and custom characters will 
meet the needs of most applications, there are some things that cannot be 
easily displayed in blue and white (or green and white, or red and white). If 
you need fine detail in a display or want to make it more eye-catching, 
sometimes just turning a dot on the screen “on” or “off” isn’t enough. 

Multicolor mode is designed for those applications that need more 
color than a standard display. In high-resolution mode there are eight dots 
on each line of a character, but each dot is limited to being either the 
character color or the background color. Multicolor mode trades some of 
those dots for more colors. In a multicolor character, there are only four 
dots per line, but each dot can be one of four colors instead of just two. 


Since a multicolor character is the same size as a high-resolution 
character, each dot is twice as wide. To get the extra colors of multicolor 
mode, you must “paint with a broader brush.” There are still eight rows in 
the character, so the height of the dot remains the same. 
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Character Memory Definitions of 
Multicolored Characters 


The dot patterns of multicolor characters are stored in character 
memory in the same order as a high-resolution character, but each row 
(byte) of the pattern looks like this. 


Screen Dot 3 2 l 0 
(ee ee ee, pee a 


Character Memory Bits | 76 | 54 | 32 | 10 | 


Each dot of a multicolor character is represented by two bits in charac- 
ter memory, rather than one. There are four possible combinations of those 
two bits (00, 01, 10, and 11), giving four possible colors. The colors selected 
by those combinations are as follows: 


Bit Pair Color Selected 
00 Background color 
01 Character color 
10 Border color 
11 Auxiliary color | 


Auxiliary Color 


The auxiliary color is stored in the VIC chip. It can be set witha POKE, 
but it uses only four of the bits in its location (the other four are used by the 
VIC chip’s sound generator). To set the auxiliary color, you must use bit 
masking to preserve the other bits. 


194 POKE 36878, (PEEK(36878>) AND 15 OR C16#ALIXD 


The auxiliary color can be any of the 16 colors allowed for the back- 
ground. Refer to Appendix E for the POKE values for the various colors. 
When the VIC is powered on, the auxiliary color is set to 0 (black). The 
auxiliary color, like the background and border colors, is the same for the 
entire screen. By using the auxiliary color, you can add one of the eight 
colors not available in high-resolution characters. 
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Making a Character Multicolored 


Multicolor mode can be turned on or off for each character on the 
screen. Whether a character is high-resolution or multicolor is controlled by 
the fourth bit in color memory. If that bit is 0 (as it has been in all our 
experiments so far), the character is high-resolution. If the fourth bit is 1, the 
character is in multicolor mode. This makes it possible to mix multicolor 
characters with standard or with high-resolution custom characters. 


Using Custom Character Design Tools 


Multicolor characters are actually a variation of custom characters, so 
you'll find the tools for working with them similar. The programs and 
techniques presented earlier in this chapter, and those you may have devel- 
oped yourself, will be helpful in multicolor design. However, slight adjust- 
ments will be necessary to some of them. For example, to ensure that 
characters in the test pattern area are in multicolor mode, change the Setup 
program so it looks like this. 


149 REM MULTI-COLOR "SETUP" PROGRAM 

119 POKE $2.24:POKE 56,24:CLR 

12@ POKE 36869, 254 

130 REM COPY UNREYERSED CHARACTERS 

14@ FOR I[=6144 TO 7167 : POKE I, PEEK(26624+1) > NEXT 
15@ REM CLEAR CUSTOM CHARACTER MEMORY 

169 FORI=7168 TO 7679 : POKE I,@ : NEXT 

17@ SB=256¥PEEK (648) : CB=37888+256%°PEEK(648> AND 2) 
18@ REM MAKE BASIC SET MULTI-COLOR MODE 

196 POKE 646,14 

260 REM FILL IN WORK AREA 

216 PRINT "[J@8HPX ¢o8" 

220 PRINT "SAIOY! 519" 

23@ PRINT "SBJRZ"; CHRE(34>; CHRE634>; CHREC 209; "#2: " 
248 PRINT "@CKSC#+3; " 

258 PRINT "SDLTES, 4<" 

269 PRINT "SEMUJA-S=" 

276 PRINT "SFNYT&.6>" 

280 PRINT "@30W+e?/7?" 

298 REM MAKE BASIC GO BACK TO HIGH-RESOLUTION 

398 POKE 646,6 


Our character design form also needs to be changed to have four 
double-wide dots per line. 
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The calculation of the POKE values is not affected by multicolor mode. 
The columns should be added up just as they are for custom characters. The 
change in the grouping of the dots is only there to make it easier to visualize 
the character as it would appear on the screen. 

You will probably find it helpful when designing multicolor characters 
to do the character on two worksheets. Do the first in colored pen or pencil, 
then translate the colors to their bit values and do the arithmetic on the 
second (see Figure 6-6 and Tables 6-2 and 6-3). 


Experimenting with Multicolor Characters 


Before starting to design your own multicolor characters, you will find 
it helpful to develop a feel for the effects of color. You should start by 
playing with characters on the screen in multicolor mode. 

Load and run the Setup program listed above. As you can see, most of 
the characters, especially those made up of horizontal and vertical bars (E, 
F, H, and so on) remain more or less recognizable. The rest are just jumbles 
of color. Asarule, high-resolution characters must be modified if they are to 
be used in multicolor mode. By changing the definition of the dots in 
character memory, multicolor mode tends to turn high-resolution character 
patterns into gibberish. There are exceptions: Some of the graphic charac- 
ters, especially the “blocky” ones, will simply change colors in multicolor 
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mode. For a good example of the opposite extreme, enter the following 


statement: 


18 POKE 7689, 102 


You might have expected that POKEing the checkerboard character 
into screen memory would display a checkerboard four dots wide. Instead, 


the display shows a set of stripes. 


The reason can be found in character 


VJ, TA AA AAAAS/\/ 
rrrnerneeN 
oS SRI 

SKIN 

P \ VOLS, CLO, 


ODO 


LA A AAL/V/V/ 4/4 
S606 6S 
B05 250505 


1) 
cN\ XK KKKX 


C.6-6.6,6. 
SSS 
K5285 
x rm 


o, 
O62, 


\/ 


S055 


| Rs 
LL 
Wels latte 4 
pees 


SZ 
o 
eectetg 


4 Veretererece, ~L 


oe 


FiGure 6-6. Multicolor character design 
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TABLE 6-2. Bit Values 


00000000 
00000000 
00000000 
00000000 
00000000 
00000000 
00000101 
00000100 


00000100 
00000100 
00000100 
00000100 
00000100 
00000100 
00000100 
00001100 


00001100 
00000000 
00000000 
00000000 
00000000 
00000000 
00000000 
00000000 


00000000 
00000000 
00000000 
00000000 
00000000 
00000000 
00000000 
00000000 
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00010101 
OO0111111 
OO0111111 
OO0111111 
OO0111111 
00001100 
01010101 
01010101 


01010101 
01010101 
01010101 
01010101 
01010101 
01010101 
01010101 
01010101 


01010101 
01010101 
01010101 
01010101 
01010001 
01010001 
01010001 
01010001 


01010001 
01010001 
01010001 
01010001 
01010001 
01010001 
01010001 
00000000 


*This table applies to Figure 6-6. 
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00000000 
00000000 
00000000 
00000000 
00000000 
00000000 
01010100 
01000100 


01000100 
01000100 
01000100 
01000100 
01000100 
01000100 
01000100 
01000100 


01000100 
01000000 
01000000 
01000000 
01000000 
01000000 
01000000 
01000000 


01000000 
01000000 
01000000 
01000000 
01000000 
01000000 
01000000 
00000000 


219 


220 = The VIC 20 User Guide 


TABLE 6-3. Decimal! Values 


NS <> oo) 


—" 
NY fF fH AR Hh Hh HLH A 


— 


Z 
0 
0 
0 
0 
0 
0 
0 


coo co oooclmcUdc lO 


*This table applies to Figure 6-6. 
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memory. Since the first row is a repeating pattern of “01” bit pairs, it is 
displayed as four dots in the character color. The second row, being a 
repeated series of “10” pairs, is displayed as four dots in the border color, 
producing a set of eight horizontal stripes. 

You can simplify your experimentation by typing the following imme- 
diate mode command: 


18 POKE 646,14 


Location 646 contains the value that BASIC puts in color memory for each 
character it displays on the screen. By changing this value you can put 
characters into the work area, and BASIC will leave them in multicolor 
mode. This makes any messages displayed by BASIC multicolor too, but 
you should have little difficulty recognizing them. 


Mixing Multicolor Characters 
With Other Modes 


Because multicolor mode is turned on or off for each character on the 
screen, you can put multicolor characters, custom characters, and normal 
text on the same screen. For example, try putting the three generations of 
stick man characters together on a single display. 

This ability gives you a great deal of versatility for designing players 
and playfields. Multicolor mode can be useful for both players and play- 
fields which are relatively static, while high-resolution custom characters 
can be used at the same time to create the more active players, with standard 
characters for text display. 


ADVANCED VIC CHIP TOPICS 


In this section we will cover some aspects of the VIC chip that you will 
find helpful as you develop more sophisticated programs. If you find some 
of the information too difficult, just skip over it for now. As you become 
more familiar with the VIC, this section will become easier to understand. 


VIC Chip’s Window into Memory 


When it comes to memory addresses, the VIC chip and the rest of the 
computer are quite different. The 6502 microprocessor in the VIC computer 
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can access 65,536 bytes of memory (though most VICs will use less than 
that). The VIC chip, on the other hand, can access only 16,384 bytes. There 
is another difference between the two. Most of the computer is based on 
“normal” bytes of eight bits, but the VIC chip uses 12 for screen memory: 
eight for the character and four for the color. This was done to make the VIC 
chip faster, allowing it to get all the information it needs about a screen 
character at one time. 

To enable the two different chips to communicate through the same 
memory, the VIC was designed so the VIC chip had a “window” through 
which it could access only a part of computer memory. This window allows 
the VIC chip to read two different areas, each 8192 bytes long, as though 
they were one area of 16,384 bytes. The layout of this window 1s shown in 
Figure 6-7. 

Notice that the first half is in the upper portion of memory, while the 
second half starts at location 0. This must be kept in mind if you move screen 
or character memory by POKEing the VIC chip’s memory pointers. This 
map also explains how we were able to get both custom characters and 
standard characters on the same screen. By setting the reverse bit in the 
character in screen memory, the character memory address overflowed and 
“wrapped around” to 0 again (the carry is thrown away). This caused the 
VIC chip to get the reversed character out of the normal portion of the 
built-in set. | 

Color memory is treated differently from screen and character mem- 
ory. The screen and character memory areas have a common set of connec- 
tions for accessing data that is shared by the VIC chip and the rest of the 
computer. Color memory has two sets: one that allows the VIC chip to read 
it as the top part of its 12-bit byte, and one that allows the rest of the 
computer to access it as the lower part of an 8-bit byte. The connections for 
location numbers also differ. While the rest of the computer “sees” color 
memory only at locations 37888 through 38911, to the VIC chip it appears to 
be everywhere in the second half of its window. Byte 0 in the color memory 
chip, which your program sees as location 37888, is read by the VIC chip at 
locations 8192, 9216, 10240, 11264, 12288, 13312, 14336, and 15360 in its 
window. Byte | appears at locations 8193, 9217, 10241, and so on. Thus, no 
matter where you move screen memory, the same color memory chip is used. 
Notice, however, that the color memory chip has 1024 locations, so that only 
half of it is used at one time. The half that is used depends on the location of 
screen memory: If screen memory starts on an even 1024-byte boundary (for 
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PEEK and POKE Locations 


VIC Chip Screen and Color 
Window Location Character Memory Memory 


37888 
37888 
37888 
37888 
37888 
37888 
37888 
37888 


37888 


Not present in 37888 
Standard VIC 

Filled by 3K 37888 

Expansion Cartridges 37888 


37888 


Program and 37888 
Screen Memory 37888 


37888 


FiGure 6-7. The VIC chip’s window into memory 


example, at 4096 in a “big” VIC), the lower half (37888-32893) is used. 
Otherwise, the upper half (38400-38905) holds the color information. 


Changing the Location of Screen 
And Character Memory 


Screen and character memory can be placed anywhere in the VIC chip’s 
window. The starting locations are kept in the chip and may be changed with 
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POKE. Like the border and background colors, they are combined into a 
single location, 36869. Each half of this byte contains a number from 0 to 15, 
which is the offset in Kbytes (1K = 1024) into the window. The formula to 
calculate the value to POKE is 


(Character memory location / 1024) + 16 * (screen memory location / 1024) 


The screen memory pointer has an additional bit stored in location 
36866 that indicates which half of the 1K byte block is being used. If the 
lower 506-byte block is being used, its value is 0. If the upper half is being 
used, its value is 1. This additional bit is the “128” bit in location 36866. Use 
statements similar to the following to set it (SB is the start of screen 
memory): 


168 POKE 36867, (PEEK(36867) AND 127) OR ¢<SB/8> AND 128) 


The other seven bits of location 36866 are the number of columns on the 
screen. Unless you plan to change the screen size, you can simply POKE ina 
value of 22 if you are using the lower half of the 1K byte block, or 150 for the 
upper half. 

To determine the POKE value for altering the location of screen and 
character memory, you must first translate the computer memory locations 
to VIC chip window locations. Use Figure 6-6 to determine where your 
screen and character memories will fall in the window. Then plug those 
values into the formulas to calculate the POKE values. For example, to 
move screen memory to location 6656 and use a set of 128 custom characters 
Starting at location 7168, 


Character memory block = 7168 / 1024=7 
Screen memory block = 6656 / 1024 = 6 
POKE value = 7+ 16 * 6= 103 


Since the screen memory is in the upper half of the 1K block, the POKE 
value for location 36866 is 150. 


Protecting Your Custom Character Memory 


In our examples we have shown the POKE statements that keep 
BASIC from using your custom character memory. If you write programs 
that use different areas in memory for custom characters, you will need to 
understand the rules behind the statements. 
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Locations 55 and 56 form a pointer to the end of BASIC memory. This 
is a 16-bit number that is the location of the byte after the last one available 
for BASIC’s use. Locations 51 and 52 are a similar pointer for BASIC’s 
string storage area. 

Locations 51 and 55 will normally contain zero after a CLR ora RUN 
command, and need not be changed. To calculate the POKE value for 
locations 52 and 56, divide the starting location for your character memory 
area by 256. | | 

It is essential that the POKEs to limit BASIC’s memory be done before 
any variables are defined in your program and that they be followed by a 
CLR. Otherwise, BASIC may not recognize the limits you have attempted 
to set. 

Other software packages also “steal” memory from BASIC. Commo- 
dore’s Programmer’s Aid and Superexpander cartridges are known to do 
this. It is probable that other packages, from Commodore as well as other 
manufacturers, will also do so. If you intend to use custom characters with 
these packages, you must “steal” the character memory area before they do. 
For programs like the Programmer’s Aid cartridge, which are turned on 
with a SYS command, POKE the value calculated above into locations 52 
and 56 and type the CLR command before typing the SYS command. 

Some programs do not honor the BASIC memory limits. The Pro- 
grammer’s Aid cartridge is one such program. These programs use the value 
in location 644, which is not checked by BASIC, to determine the last byte of 
memory in the VIC. This location can be POKEd with the same value used 
for locations 52 and 56, but some caution is required, because you cannot 
predict how future cartridges will use this location. If a program that “steals” 
memory works without a particular cartridge, but fails when that cartridge 
is installed, this is probably causing the problem. Ifa POKE to location 644 
is required, it must be done at the same time as the POKEs to locations 52 
and 56, before the CLR. 

Cartridges like the Superexpander that turn themselves on automati- 
cally steal their memory before you can change the pointers. You must either 
avoid using the area they have “stolen” (usually the highest few hundred 
bytes of memory) or remove the cartridge when running programs that use 
custom characters. | | 
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CHAPTER 


SOUNC 


This chapter will show you how to produce sound with the VIC 20. 
You will learn how to create convincing sound effects to enhance your 
programs. 

You will also learn how to control the sound registers, mix tones, and 
use sound-shaping techniques to produce variations such as tremolo and 
vibrato. 

In addition to showing you how to produce sounds, this chapter also 
covers saving and playing back your sounds from either the disk drive or the 
Datassette. 


THE VIC SOUND REGISTERS 


The VIC 20 has five memory locations, called sound registers, that 
control sound output. These locations control the volume, the tone, and the 
type of sounds produced. Table 7-1 shows the memory location and func- 
tion of each of the sound registers. 


227 
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SC SEES 
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TABLE 7-4. Sound Register Memory Locations 


Memory Location Sound Register 


36874 Low tone register 

36875 Middle range tone register 
36876 High tone register 

36877 Noise register 


Volume control register 


Volume Control Register 


Memory location 36878 controls the volume of the sounds produced by 
the VIC. Sixteen different volume levels can be selected. These range from 0 
(off) to 15 (loudest). To control the volume, enter any value between | and 
15. By itself, however, the volume control register produces no sound. You 
also need the tone registers. 


Tone Registers 


The three tone registers (memory locations 36874, 36875, and 36876) 
cover a frequency range of nearly nine musical octaves. These octaves are 
not precise in terms of a standard musical scale because the frequencies 
generated by the VIC 20’s system clock are based on the computing 
requirements of the microprocessor. For example, the VIC uses a frequency 
of 443.888Hz as the note A. 

Table 7-2 shows the frequencies covered by the VIC tone registers and 
the approximate musical notes achieved, as well as the values you must 
POKE into the tone registers to generate the frequencies. 


POKEING A TONE 


The lowest note the VIC 20 can produce is a low B (approximately 31 
Hz, or 31 cycles per second). Enter the value for the lowest note into the low 
tone register 


POKE 36874,128 
and turn on the maximum volume. 
POKE 36878, 15 
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To turn off the sound, you can use any of the following methods: 


- POKE 0 into the tone register 
- POKE 0 into the volume register 
- Simultaneously press RUN/STOP and RESTORE. 


The first method puts a nonexistent tone value into the tone register. 
Actually, any value lower than 128 would accomplish this. 

The second method turns the volume register to the minimum position, 
which is off. 

The third method resets the system and therefore resets all system 
variables, such as the tone registers, screen and border colors, and so on. It 1S 
better to use one of the first two methods, since the third method may do 
more than you had in mind. 


Noise Register 


The fourth sound register (memory location 36877) controls a noise 
generator. The sound created by this register can vary from a high-pitched 
hiss 


POKE 36878, 15 


POKE 36877,254 
to a low roar. 
POKE 36877, 128 
Once again, to turn off the sound, you can use 
POKE 36878, 
which turns the volume down, or 
POKE 36877, 


which puts an invalid number into the tone register. 

By putting different values into this register and combining the sounds 
with the tone registers, it is possible to create a wider range of sounds than 
can be produced using the tone registers alone. 
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TABLE 7-2. POKE Values, Frequencies, and Musical Equivalents 


POKE 
Value 


High 
Range 


125.8267Hz 
126.8253Hz 
127.8400Hz 
128.8709Hz 
129.9186Hz 
130.9836Hz 
132.0661 Hz 
133.1666Hz 
134.2857Hz 
135.4237Hz 
136.5811 Hz 
137.7586Hz 
138.9565Hz 
140.1754Hz 
141.4159Hz 
142.6785Hz 
143.9639Hz 
145.2727Hz 
146.6055 Hz 
147.9629Hz 
149.3457Hz 
150.7547Hz 
152.1904Hz 
153.6538Hz 
155.1456Hz 
156.6666Hz 
1358.2178Hz 
159.8000Hz 
161.4141Hz 
163.0612Hz 
164.7422Hz 
166.4583Hz 
168.2105Hz 
170.0000Hz 
171.8279Hz 
173.6956Hz 
175.6043Hz 
177.5555Hz 
179.5505Hz 
181.5909Hz 
183.6781Hz 
185.8139Hz 
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62.91338Hz 
63.41269Hz 
63.92000 Hz 
64.43548Hz 
64.95934Hz 
65.49 180Hz 
66.03305 Hz 
66.58333Hz 
67.14285Hz 
67.71186Hz 
68.29059 Hz 
68.87931Hz 
69.47826Hz 
70.08771Hz 
70.70796Hz 
71.33928Hz 
71.98198Hz 
72.63636Hz 
73.30275Hz 
73.98 148Hz 
74.67289 Hz 
75.37735Hz 
76.09523Hz 
76.82692Hz 
77.57281Hz 
78.33333Hz 
79.10891Hz 
79.90000Hz 
80.70707 Hz 
81.53061 Hz 
82.37113Hz 
83.22916Hz 
84.10526Hz 
85.00000 Hz 
85.91397Hz 
86.84782Hz 
87.80219Hz 
88.77777Hz 
89.77528Hz 
90.79545Hz 
91.83908 Hz 
92.90697 Hz 


31.45669 Hz 
31.70634Hz 
31.96000Hz 
32.21774Hz 
32.47967Hz 
32.74590Hz 
33.01652Hz 
33.29 166Hz 
33.57142Hz 
33.85593 Hz 
34.14529Hz 
34.43965Hz 
34.73913Hz 
35.04385Hz 
35.35398 Hz 
35.66964Hz 


~ 35.99099 Hz 


36.31818Hz 
36.65137Hz 
36.99074Hz 
37.33644Hz 
37.68867 Hz 
38.04761Hz 
38.41346Hz 
38.78640 Hz 
39.16666Hz 
39.55445 Hz 
39.95000 Hz 
40.35353Hz 
40.76530Hz 
41.18556Hz 
41.61458Hz 
42.05263 Hz 
42.50000 Hz 
42.95698 Hz 
43.42391Hz 
43.90109Hz 
4438888 Hz 
44.88764Hz 
45.39772Hz 
45.91954Hz 
46.45348 Hz 


Musical 
Note 


188.0000Hz 
190.2380Hz 
192.5301 Hz 
194.8780Hz 
197.2839Hz 
199.7500Hz 
202.2784Hz 
204.8717Hz 
207.5324Hz 
210.2631Hz 
213.0666Hz 
215.9459Hz 
218.9041 Hz 
221.9444Hz 
225.0704Hz 
228.2857Hz 
231.5942Hz 
235.0000Hz 
238.5074Hz 
242.1212Hz 
245.8461 Hz 
249.6875Hz 
253.6507Hz 
257.7419Hz 
261.9672Hz 
266.3333Hz 
270.8474Hz 
275.5172Hz 
280.3508Hz 
285.3571Hz 
290.5454Hz 
295.9259Hz 
301.5094Hz 
307.3076Hz 
313.3333Hz 
319.6000Hz 
326.1224Hz 
332.9166Hz 
340.0000Hz 
347.3913Hz 
355.1111Hz 
363.1818Hz 
371.6279Hz 
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94.00000Hz 
95.11904Hz 
96.26506Hz 
97.43902Hz 
98.64197Hz 
99.87500Hz 
101.1392Hz 
102.4358 Hz 
103.7662Hz 
105.1315Hz 
106.5333Hz 
107.9729Hz 
109.4520Hz 
110.9722Hz 
112.5352Hz 
114.1428Hz 
115.7971 Hz 
117.5000Hz 
119.2537Hz 
121.0606Hz 
122.9230Hz 
124.8437Hz 
126.8253Hz 
128.8709Hz 
130.9836Hz 
133.1666Hz 
135.4237Hz 
137.7586Hz 
140.1754Hz 
142.6785 Hz 
145.2727Hz 
147.9629 Hz 
150.7547 Hz 
153.6538Hz 
156.6666Hz 
159.8000 Hz 
163.0612Hz 
166.4583 Hz 
170.0000 Hz 
173.6956Hz 
177.5555Hz 
181.5909Hz 
185.8139Hz 
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47.00000 Hz 
47.55952Hz 
48 .13253Hz 
48.71951Hz 
49.32098 Hz 
49.93750Hz 
50.56962Hz 
51.21794Hz 
51.88311Hz 
52.56578 Hz 
53.26666Hz 
53.98648 Hz 
54.72602Hz 
55.48611Hz 
56.26760 Hz 
57.07142Hz 
57.89855 Hz 
58.75000 Hz 
59.62686Hz 
60.53030Hz 
61.46153Hz 
62.42187Hz 
63.41269Hz 
64.43548 Hz 
65.49 180Hz 
66.58333Hz 
67.71186Hz 
68.87931Hz 
70.08771 Hz 
71.33928Hz 
72.63636Hz 
73.98148Hz 
75.37735Hz 
76.82692Hz 
78.33333Hz 
79.90000 Hz 
8 1.53061 Hz 
83.22916Hz 
85.00000 Hz 
86.84782Hz 
88.77777Hz 
90.79545Hz 
92.90697 Hz 


TABLE 7-2. POKE Values, Frequencies, and Musical Equivalents (continued) 


Musical 
Note 
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TABLE 7-2. POKE Values, Frequencies, and Musical Equivalents (continued) 


Musical 
Note 


380.4761Hz 190.2380Hz 95.11904Hz 


214 389.7560Hz 194.8780Hz 97.43902Hz 

215 399.5000Hz 199.7500Hz 99.87500Hz G 
216 409.7435Hz 204.8717Hz 102.4358Hz 

217 420.5263Hz 210.2631Hz 105.1315Hz G# 
218 431.8918Hz 215.9459Hz 107.9729 Hz 

219 443.8888Hz 221.9444Hz 110.9722Hz A 
220 456.5714Hz 228.2857Hz 114.1428Hz 

221 470.0000Hz 235.0000Hz 117.5000Hz A# 
222 484.2424Hz 242.1212Hz 121.0606Hz 

223 499.3750Hz 249.6875Hz 124.8437Hz B 
224 515.4838Hz 257.7419Hz 128.8709Hz 

225 532.6666Hz 266.3333Hz 133.1666Hz C 
226 551.0344Hz 275.5172Hz 137.7586Hz 

227 570.7142Hz 285.3571Hz 142.6785 Hz CH 
228 591.8518Hz 295.9259Hz 147.9629 Hz D 
229 614.6153Hz 307.3076Hz 153.6538 Hz D# 
230 639.2000Hz 319.6000Hz 159.8000Hz 

231 665.8333Hz 332.9166Hz 166.4583Hz E 
ZL 694.7826Hz 347.3913Hz 173.6956Hz F 
233 726.3636Hz 363.1818Hz 181.5909Hz FH 
234 760.9523 Hz 380.4761 Hz 190.2380Hz 

235 799.0000Hz 399.5000Hz 199.7500Hz 

236 841.0526Hz 420.5263 Hz 210.2631Hz G# 
237 887.7777Hz 443.8888Hz 221.9444Hz A 
238 940.0000Hz 470.0000Hz 235.0000Hz Pa 
239 998.7500Hz 499.3750Hz 249.6875Hz B 
240 1065.333Hz 532.6666Hz 266.3333Hz C 
241 1141.428Hz 570.7142Hz 285.3571 Hz C# 
242 1229.230Hz 614.6153Hz 307.3076Hz 

243 1331.666Hz 665.8333Hz 332.9166Hz 

244 1452.727Hz 726.3636Hz 363.1818Hz 

245 1598.000Hz 799.0000Hz 399.5000Hz 

246 1775.555Hz 887.7777Hz 443.8888 Hz 

247 1997,.500Hz 998.7500Hz 499.3750Hz B 
248 2282.857Hz 1141.428Hz 570.7142Hz CH 
249 2663.333Hz 1331.666Hz 665.8333Hz 

250 3196.000Hz 15980000Hz 799.0000 Hz 

251 3995.000Hz 1997.500Hz 998.7500Hz B 
252 5326.666Hz 2663.333Hz 1331.666Hz 

253 7990.000Hz 3995.000Hz 1997.500Hz B 


254 135980.00Hz 7990.000Hz 3995.000 Hz B 
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THE COMPONENTS OF SOUND 


Pure Tones 


The tone registers at memory locations 36874, 36875, and 36876 pro- 
duce continuous frequencies ranging from about 31 Hz (cycles per second) 
to 15,980 Hz. Acycle, in tonal frequencies, refers to a sound that starts at its 
minimum volume, rises to its maximum volume, and falls again to its 
minimum volume. 


Maximum volume 


Sound wave 


Volume 


Minimum volume 


The actual tone of a sound is a direct function of its frequency (how 
quickly it rises and falls). If you double the frequency, you will have a tone 
exactly one octave higher than before. Try this program. 


1@ POKE 36878, 15 

28 GET A$: IF AS = "" THEN 20 

38 IF AS = CHRS$C133) THEN 70 

4@ IF AS = CHR$(134) THEN 88 

38 IF A$ = CHR$¢135) THEN 90 

68 IF AS = CHR$(136) THEN 180 

65 GOTO 20 

7@ POKE 36876,0: POKE 36875,0: POKE 36874,240: GOTO 20 
86 POKE 36876,8: POKE 36874,0: POKE 36875.24@: GOTO 20 
98 POKE 36875,8: POKE 36974,0: POKE 96876,249: GOTO 20 
10@ IF PEEK<(36878> = 0 THEN 10 

11@ POKE 36878,90: GOTO 20 


Line 10 turns on the volume control register so you will be able to hear 
the sounds produced by the tone registers. Line 20 waits for a keystroke. If 
the F1 key is pressed, 0 is POKEd into the middle and high tone registers and 
208 is POKEd into the low tone register. Pressing the F3 key POKEs 0 into 
the high and low tone registers and 208 into the middle tone register. 
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Pressing the F5 key POKEs 0 into the middle and high tone registers and 208 
into the low tone register. 

Pressing the F7 key turns off the sound by POKEing 0 into the volume 
control register. Pressing the F7 key again turns the sound back on. 

Since the tone registers are one octave apart, pressing the different 
function keys will allow you to hear 340 Hz (high register), 170 Hz (middle 
register), or 85 Hz (low register). Once again, see Table 7-2 for a complete 
listing of the frequencies and POKE values. 


SWEEPING THE SCALES 


You can change the value in a tone register while it is on. This will 
switch immediately from one note to another. This is especially useful for 
sliding from one note to the next. Try the following example. There will be 
no pause between notes. 


1@ POKE 36878, 15 

20 GET AS: IF AS = "" THEN 20 

30 IF A$ = CHR$(133) AND PEEK‘36878)20 THEN 10 

40 IF A$ = CHR$(133) AND PEEKC36878)=15 THEN POKE 36878,0: GOTO 28 
98 A = VALCAS) #104163 

68 POKE 36875.A: GOTO 20 


This program accepts data from the keyboard in the form of single 
numbers between 0 and 9. These numbers are converted into a value 
between 128 and 254. The value is then POK Ed into the middle tone register 
(location 36875). Pressing the F1 key alternately turns the sound on and off. 

By using a FOR-NEXT loop, you can sweep up or down the scale. The 
following sequence covers the entire tone range of the middle register: 


19 POKE 36878, 15 

20 FOR T=128 10 254 
36 POKE 36875,T: NEXT 
48 POKE36878,9 


Try combining three loops and sweeping all nine octaves. 


MULTIPLE TONES 


By sounding two or more tones at once, you can add depth to many of 
your sound effects. Adding this line to the sample program will play two 
tones at once. 


20 POKE 368676,T 
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You can also harmonize. Type NEW and enter the following program: 


10 POKE 36674, @ : POKE 36875, 0 : POKE 36876. 8 
20 POKE 36878, 15 

3@ POKE 36876, 135 : GOSUB 180 

40 POKE 36875, 207 : GOSUB 18¢ 

5@ POKE 36874, 235 * GOSUB 190 

78 POKE 36878, @ 

8@ END 

10@ FOR Y = @ TO 30@ : NEXT : RETURN 


With careful planning, you can make listeners think they are hearing 
more than three sound registers. Try adding this line. 


60 POKE 36876,195: GOSUB 108 


PULSED TONES 


Another method of modifying the sound registers involves quickly 
turning them on and off. This method, called pulsing, can create the effect of 
a buzzer. 

To get a better idea of how pulsing works, look at Figure 7-1 in relation 
to the following program: 


18 POKE 36878, 15 

20 FOR T = @ TO SQ 

3@ POKE 36875, 

40 FOR F = @ TO 1: NEXT 
3@ POKE 36875, 240 

6@ NEXT 

7@ POKE 36875.0 


Line 10 POKEs 15 into the volume register, but there is no sound 
output until the tone register is turned on. Line 20 starts the loop that 
determines the number of pulses produced (we’ve chosen 50). Line 30 starts 
the sound at 0 (off), as shown in Figure 7-1. Line 40 is the delay loop that 
determines the off-time for the pulse. Line 50 turns the sound on. Line 60 
completes the loop, sending the program back to line 20. In line 30, the 
sound is immediately turned off again. After repeating 50 times, the loop 
ends at line 70 by turning the sound register off. 

By increasing the length of the delays between pulses, you can tailor this 
program to create the sound of a bouncing ping-pong ball. Change line 40 as 
follows: 


40 FOR F = @ TO 408: NEXT 
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POKE 36876, 200 
(pulse on) 


POKE 36876, 200- 
(pulse on) 


POKE 36878, 15 
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POKE 36876, 0 
(pulse off) 


FiGure 7-4. Pulsed waveforms 


Volume Adjustments 


Up to this point we’ve been using the volume control as an on/ off 
switch. However, it can also be used to change the nature of the sounds being 
produced. You can produce a number of effects simply by varying the 
volume of a tone. 


FADING TONES 


By slowly reducing the volume of the sound, we can make it sound like 
the ping-pong ball is bouncing away. First, change line 20 to read as follows: 


20 FORT=OTOLSSTEP. 3 


This still produces 50 steps through the loop, but in this application T must 
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never exceed 15 (the highest allowable number in the volume register). 
Next, POKE the loop value into the volume register by adding the 
following line: 


45 POKE 26878, 15-T 


This causes the volume to decrease with each pass through the loop. 

You can also use the loop variable to decrease the length of the delays 
between pulses as the volume decreases. This producés a sound resembling a 
dropping ball. Try changing line 40 to 


40 FOR F = @ TO 406 ~ TH26: NEXT 


The number 26 was chosen because 400 divided by 15 is approximately 26. 
This divides the steps of the delay into 15 even increments. Subtracting the 
loop value from 400 reduces the delay in the increments each time through 
the loop. 

Try changing the tones used in the first ping-pong program to produce 
the sound of a clock ticking. This can be accomplished by using two different 
tone values on alternate loops. 


ATTACK/SUSTAIN/DECAY 


When you play a note on a piano, the sound begins loudly and slowly 
fades until it finally fades away completely. The start of the sound 1s called 
the attack. The portion of the sound in which the volume is maintained is 
called sustain, and the last part of the sound, in which it fades, 1s called 
decay. 


Sustain 


Volume 


Time 


Downloaded from www.Manualslib.com manuals search engine 


238 = The VIC 20 User Guide 


eee 
ee eee OOOO” 


All of the sounds we’ve produced so far have had a very fast attack and 
a very fast decay. When these parameters are changed, the sounds become 
quite different. Here is the original ping-pong program again. 


19 POKE 26878, 15 

20 FOR T = @ TO 50 

3@ POKE 36875, 

40 FOR F = @ TO 400: NEXT 
5@ POKE 36875, 240 

6@ NEXT 

70 POKE 36875, 


Now let’s add a decay. 
oS? FOR DD = 15 TO @ STEP ~1: POKE 36878, DD: NEXT 


Since we’re controlling the volume register within the decay loop, we 
can get rid of line 10, which originally turned the volume on. If we also adda 
line to provide attack, the program looks like this. 


S INPUT "ATTACK"; A 

7 INPUT "DECAY"; D 

10 FOR T = 8 TO 3@ 

20 POKE 36875, @ 

30 FOR F = @ TO 400: NEXT 
4@ POKE 36875, 240 

36 FOR AA = @ TO 15 STEP A 
oS POKE 36878, AR: NEXT 

6@ FOR DD = 15 TO @ STEP -D 
7@ POKE 36878, DD 

80 NEXT 

98 POKE 36875, @ 


Listen to the differences introduced by different attack/ decay ratios. 
You can enter any positive number, including fractions, in the input state- 
ment. If you enter 0 for either the attack or decay, however, the note will 
never end. 

Sustain can be added by including a delay between the attack and the 
decay as follows: 


8 INPUT "SUSTRIN";S 
57 FOR SS=@ TO S$! NEXT 


VIBRATO/TREMOLO 


Vibrato and tremolo take place during the sustain portion of the tone. 
Vibrato is a passage in which the volume is raised and lowered quickly to 
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produce a wavering effect. Enter the following line to produce vibrato: 


S? FORV 2670S 
98 FOR W = 15 TO 8 STEP -1: POKE 36878. W: NEXT 
99 FOR W = 8 TO 15: POKE 36878, W: NEXT: NEXT 


Tremolo is a fast vibrato. If you change lines 58 and 59 to 


57 FOR V=@ TO S 
58 FOR W = 15 TO 8 STEP -J: POKE 36878:W: NEXT 
59 FOR W = 8 TO 15 STEP J: POKE 36878.W: NEXT: NEXT 


and add an input line to enter the vibrato rate 
1 INPUT "VIB. RATE"; J 


you will be able to vary these parameters at the start of each tone. Entering 
larger numbers will increase the speed of the vibrato, and smaller numbers 
will slow it down. Do not enter numbers larger than 15; they will have no 
effect. Entering a 0 will result in an endless loop. 


Mixing Tones 


Earlier in this chapter we put three harmonizing tones together to 
create a chord. It is also possible to combine tones to create entirely new 
sounds. Let’s take a look at some of these. 


BEAT FREQUENCY 


A beat frequency is a sound that is produced when two tones that are 
very close together are played at the same time. Try the following simple 
experiment: 


1@ PRINT "v3" 

20 INPUT "STARTING VALUE";S 
30 IF $¢138 OR $>243 THEN 20 
40 FORD=S - 16 T0S + 18 
5@ POKE 36876.$: POKE 36875,D 
66 POKE 36878, 15 

7@ FOR T = @ TO SQ@: NEXT 

8@ POKE 36878,8: NEXT 


This program starts with a note value between 138 and 243 for the 
middle tone register. The program will then play all of the notes within a 
range of ten above and ten below the starting value in the high tone register. 
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This will allow you to hear the effects of different notes (frequencies) on each 
other. Listen for the “beat” that occurs at certain frequencies. This is caused 
by the interaction of the two tones. 

The program plays notes that are an octave apart. This was done to 
keep the program simple. Fortunately, beat frequencies work on different 
octaves as well as on the same octave. Use Table 7-2 to locate the values of 
notes of the same frequency in the same octave. Experiment with some of 
these to see how changing octaves affects the sound produced. 


USING THE NOISE REGISTER 


The noise register operates exactly like the tone registers. Here’s the 
ping-pong program one more time, this time using the noise register. 


1@ POKE 368786, 15 

20 FOR T=@ TO 15 

30 POKE 36877,6 

48 FOR F=@ TO 460:NEXT 
30 POKE 36877,240 

60 POKE 36877.,0:NEXT 


Now let’s add some decay to the sound. 


JOS FOR Y=i5 TO @ STEP~.1 
5? POKE 36878, :NEXT 


By also modifying the repeat rate, we can create a sound similar to a 
train as follows: 


4@ FOR F = @ TO 400-26%T: NEXT 
oS) FOR ' = 15 TO @ STEP .1%T 


By mixing sound we can also add a train whistle. To do that we'll need 
to maintain the volume at a constant level. Add the following routine to 
your program: 


78 FOR G=@ 70 3 

88 POKE 36877, 240 

99 FOR F = @ TO 10@: NEXT 

146 POKE 36877, @ 

116 FOR Q = @ TO 1@: NEXT: NEXT 

12@ IF Xs1 THEN POKE 36875, @: POKE 36874.8: X=@: GOTO 79 
13@ IF Xe@ THEN POKE 36875,220: POKE 36874,240: x=1 

135 FOR WW = @ TO 2 

146 FOR G = 8 T0 3 

150 POKE 36877, 248 
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16@ FOR F = @ TO 10@: NEXT 
17@ POKE 36877, @ 

18@ FOR @ = @ TO 1@: NEXT 
198 NEXT 

208 GOTO 70 


PROGRAMMING MUSIC ON 
THE VIC 20 


By POKEing values and delays into the sound registers we can write 
song programs. 


18 POKE 36878, 15 

28 POKE 36875, 267 

25 FOR U=@ TO 100°HEXT 
3@ POKE 36875.8 

35 FOR U=@ TO 180: NEAT 
4@ POKE 36875, 207 

45 FOR U=0 TO 188:NEXT 
5@ POKE 36875.8 

So FOR U= @ TO 100 

6@ POKE 36875, 212 

65 FOR U=@ TO 186:NEXT 
78 POKE 36875. 8 

7o FOR Us@ TO 180:NEXT 
66 POKE 36875. 217 

85 FOR U=@ TO 160‘NEXT 
9@ POKE 36875, 

95 FOR U=@ TO 100:NEXT 
188 POKE 36875. 207 

115 FOR Us@ TO 18@:NEXT 
128 POKE 36875.6 

125 FOR U=@ TO 190:NEXT 
138 POKE 36875,217 

135 FOR Us@ TO 19@:NEAT 
149 POKE 36875,6 

145 FOR U=@ TO 180:NEXT 
15@ POKE 36875.212 

155 FOR U=@ TO 100: NEXT 
168 POKE 36875.@ 

165 FOR U=@ TO 180‘NEXT 
170 POKE 36875, 138 

175 FOR U=@ TO 100: NEXT 
16@ POKE 36875,@ 

185 FOR U=@ TO 100: NEXT 
198 POKE 36879, 287 

195 FOR U=@ TO 100: NEXT 
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200 POKE 36875, 

285 FOR U=@ TO 1@0:NEXT 
216 POKE 36875, 207 

215 FOR U=@ TO 160:NEXT 
2260 POKE 36875, 0 

225 FOR Us@ TO 19@:NEXT 
239 POKE 36875,212 

235 FOR UeQ@ TO 10@:NEXT 
246 POKE 36875,8 

245 FOR UeQ@ TO 100:NEXT 
238 POKE 36875,217 

255 FOR Ue@ TO 18Q:NEXT 
260 POKE 36875.0 

265 FOR Us@ TO 100:NEXT 
27@ POKE 36875. 207 

273 FOR U=@ TO 4@0:NEXT 
286 POKE 36875, 

295 FOR Ue@ TO 180:NEXT 
290 POKE 36875, 204 

295 FOR U=@ TO 300:NEXT 
380 POKE 36875.8 

385 FOR Ue@ TO 16@:NEXT 


This isn’t a very long song, but the program is quite long. If you 
attempted to put all of the notes of a song into a program this way, you 
would probably run out of memory. 

Another way to enter music into a song program is by using DATA 
Statements. A program of this type requires three short sections: a routine 
that reads the notes, one that plays them, and one that contains the notes as 
data. Try this version of the song. 


1@ POKE 36878,15 

2@ READ A: IF A= 399 THEN 50 

25 POKE 36875,A 

3@ FOR T=@ TO 100:NEXT 

48 GOTO 20 

08 POKE 36878,6 

66 DATA 207.0,207,8,212,.0,217,8,207,8 

7@ DATA 217,.0,212,0, 198.8, 207,8,207,0,212,8,217,8, 207,207 
88 DATAZO7. 8,204, 204,284,999 


By changing the values in the DATA statement, you can play almost 
any song you like: Enter 0 wherever you want a pause, and enter an illegal 
number, such as 999, to signal the end of the song, as shown above. 
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Programming Rhythm 


Programming rhythm on the VIC is much like programming the train 
sound we made earlier. Let’s start with a simple drum sound. 


1@ POKE 36878, 15 
20 POKE 36877, 229 

30 FOR I=Q TO 25:NEXT 
40 POKE 36877,0 

50 FOR I=@ TO 25Q:NEXT 
6@ POKE 36877,229 

7@ FOR 12 TO 25:NEXT 
82 POKE 36877, 

9@ FOR I=@ TO 250:NEXT 
188 POKE 36877, 129 

110 FOR 1=@ TO 125:NEXT 
120 POKE 36877. 

130 FOR I=@ TO 650:NEXT 
149 GOTO 20 


By using the low tone register as follows we can add a bass drum: 


198 FOR D=128 TO 133 
11@ POKE 36874.D 

12@ NEXT 

130 POKE 36874.,0 


Changing the loop variables will vary the speed of the rhythm. 


98 FOR I=@ TO 125:NEXT 
96 FOR [=@ TO 125:NEXT 
149 FOR I3Q@ TO 650: NEXT 


By adding some READ statements to the rhythm program we can 
include a melody. Here’s the complete listing. 


1 DATA 0,0,0,0,8,98. 237,239,240 
2 DATA 240,239,239, 237,237 ,237,239, 240 
3 DATA 243, 239, 248, 237,237,999 
1@ POKE 36878,15 

15 READ A: IF As999 THEN 200 

16 POKE 36875.,A 

28 POKE 36877,229 

38 FOR I=Q@ TO 235: NEXT 

4@ POKE 36877, 

9@ FOR I=@ TO 125:NEAT 

68 POKE 36877,229 

7@ FOR I=@ TO 25: NEXT 

8@ POKE 36877.,6 


Downloaded from www.Manualslib.com manuals search engine 


244 the VIC 20 User Guide 


9@ FOR I=@ TO 125:NEXT 

189 FOR D*128 TO 133 

119 POKE 36874, D 

128 NEXT 

125 READ A: IF Az999 THEN 200 
126 POKE 36875,A 

138 POKE 36874. 

149 FOR Is@ TO 300: NEXT 

158 GOTO 15 

280 POKE 36878.@:RESTORE:GOTO 18 


The most important thing to keep in mind when working with this kind 
of program is that doing more things within your loops (such as adding more 
READ statements) adds time to the loop. Test statements, such as the one 
on line 15, also take some time. Be sure to account for every line. If you are 
unsure of your timing, run the program and listen for timing problems. By 
adding to or subtracting from the timing loops, as on lines 50 or 140, youcan 
usually compensate for timing errors. 


The VIC Electronic Organ 


Here’s a program that “GETs” notes from the keyboard and plays 
them. We’ve used the note values from Table 7-2 and POKEd them into the 
middle and high registers. 


300 GET AS: IF AS="" THEN 300 


318 
328 
338 
349 
358 
368 
378 
360 
398 
400 
410 
420 
430 


IF Ag="Q" 
IF Aga"g" 
IF Agen" 
IF Age"3" 
IF Agee" 
IF Aga"R" 
IF Ages" 
IF Age"'T" 
IF Age"g" 
IF Age"y" 
IF Aga?" 
IF Age"y" 
IF Aga"y" 


THEN A&1i95 
THEN A199 
THEN A=201 
THEN A=203 
THEN A297 
THEN Ae2@9 
THEN A=212 
THEN A=215 
THEN Ae217 
THEN A=219 
THEN Azz2l 
THEN A=Z223 
THEN A=225 


435 POKE 36875.A‘POKE 36876,A 
440 FOR J@15 TO @ STEP ~,75 
45@ POKE 36878, J ‘NEXT 

460 Fie@: GOTO 300 


This program was written for only one octave. By increasing the 
number of keys read, you can add more octaves. To make the keys play 
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longer, you can increase the length of the delay loop at line 440 by making 
the fractional STEP smaller. 


Saving Music 


An alternative to writing DATA statements by hand is to use the VIC 
electronic organ to store your musical values. Let’s look at how these can be 
saved. 


CREATING MUSIC ARRAYS 


Adding the following lines to your program will allow you to store the 
notes you play into an array. For the purposes of this program, we’ll use an 
array with 100 notes in it. You can create arrays with more notes in them if 
you like, but remember, each note is a byte, and you won't be able to 
dimension an array that is larger than your available memory space. 


306 IF AS="—" THEN BCComB‘CaC+1 
307 IF Age"fi" THEN 580 

388 FOR Q=@ TO C+1 

518 POKE 36875,3¢Q>‘POKE 36676, B¢<Q) 
S2@ FOR R15 TO © STEP ~.75 

530 POKE 36878,R‘ NEXT 

548 NEXT: GOTO 309 


Each time you press one of the keys on the VIC electric organ, it will be 
played. Pressing F1 will play back all of the notes stored in memory. To adda 
note to the song, press F3 after pressing the note you want. 


STORING MUSIC ON THE 
DATASSETTE OR DISK 


When you turn the VIC off, any music you have stored into an array 
will be lost. If you want to save your songs and play them back later, you will 
need to store them on either the disk drive or the Datassette. 

Adding the following lines to your program will allow you to store the 
music data in your array into a data file on the Datassette: 


308 IF R$="H" THEN 680 

668 PRINT"SONG NAME (MAXIMUM 18 CHARACTERS)" 
618 INFUT SN# 

620 OPEN 1.1.1.S8N¢ 

638 FOR T= @ TO C+1 

640 PRINT#1, BCT) ‘NEXT 


Downloaded from www.Manualslib.com manuals search engine 


246 The VIC 20 User Guide 


650 CLOSE 1 
669 PRINT “READY. " 
678 GOTO 305 


To store the data into a disk file, change line 620 to 


620 OPEN 1,8.4,SN$, "WRITE" 


READING MUSIC FROM THE 

DATASSETTE OR DISK 

To read a song from a music file, you will need to read the information 
back into an array that can be ready by your electronic organ program. The 
following routine accomplishes this. You'll need to give the new version of 
your song another name, such as “SONG.1,” if you are using the disk drive. 

Here is the Datasette version. 


305 IF A$="M" THEN 780 

768 INPUT"SONG NAME" 5 SN¢ 

718 OPEN 1,1,0,8NS 

720 INPUT#1, BCC)‘ BaST 

730 CaC+l' IF Be@ THEN 720 

748 CLOSE 1:PRINT"READY.":GOTO 305 


If you have a disk drive, change line 710 to 


710 OPEN 1,8,4,SN$, "WRITE" 


COMBINING SOUND WITH 
ANIMATION 


Most video games use sound very effectively. The sounds can be used to 
create a mood or to give the player more information about the action that is 
taking place on the screen. 


Timing 


When playing a video game, the player is more dependent on the timing 
of the sound than on the visual portion of the game. Try this ping-pong 
program with no sound. 
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1@ PRINT “.3" 

20 FOR T=38480 TO 38421 

30 POKE T,6:NEXT 

40 FOR T=7680 TO 7791 

50 FOR YaQ TO 10: NEXT 

60 POKE T-1, 32:POKE 1,61 :NEXT 
70 FOR T#7701 TO 7680 STEP -1 
80 FOR Y=@ TO 10:‘NEXT 

96 POKE T+1,32: POKE T,81:° NEXT 
108 GOTO 48 


Now we will add sound with the following lines: 


15 POKE 36878, 15 
65 POKE 36876,240: POKE 36876.2 
95 POKE 36876,230: POKE 36876,@ 


The addition of sound helps create the effect of a bouncing ping-pong ball. 

To synchronize the sound with a visual event on the screen, you will 
have to be aware of the position of the objects on the screen. In the example 
above, the timing was straightforward because the sound was created at the 
end of each loop. To make simple sounds synchronize with movements, the 
sounds should generally take place when one object collides with another. 
The following program determines object movement and sound based on 
the numeric position on the screen: 


10 POKE 36878,15: Rel: RT=.7: PRINT "2" 
20 FOR T=3840@ TO 38421: POKE T,5:NEXT 

30 FOR T=36422 TO 36443:POKE T,6‘NEXT 

40 T=?680: TT=7702 

SQ POKE T,61:POKE T-1.32:POKE T+1,32 

60 POKE TT,G1: POKE TT-1,32! POKE TT+1,32 
7Q TaT#R: TTaTTRT 

80 IF T=7680 OR 797701 THEN ReR#-1 

90 IF TT>7723 OR T<?702 THEN RT@RTH-1 

1@@ GOTO 58 


Because different tone values are used, it is immediately apparent which 
object has just hit the wall. 


Tailoring the Sound to 
The Picture 


Now let’s look at some exploding ping-pong balls. The next program 
will take our familiar ping-pong sound and combine it witha picture. Aftera 
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random length of time, the ball will explode. The important thing here is to 
make the picture and the sound work together; the sound should enhance 
the picture. 


100@ PRINT "%)": T1$="@90000" :GI=(RND(Q)H5) +1 
1085 POKE 36878, 15 

1910 FOR T=38400 TO 36443 

1020 POKE T,6:NEXT 

1030 FOR T=7680 TO 7701 

1035 FOR Ya@ TO 10:NEXT 

1038 POKE T=1,32:POKE T,61:NEXT 
1040 IF GICVALCTI$) THEN G1=999 
1041 IF GI<>999 THEN GOTO 1047 
1042 POKE 36877, 129 

1043 FOR X=@ TO 20 

1044 POKE T-1,42 

1045 FOR Us@ TO 9:NEXT 

1046 POKE T=1,170:NEXT 

1047 IF GI=999 THEN POKE 36676,0:PRINT"*)" :GOTO 1047 
1048 POKE 36876,245: POKE 36876,0 
105@ FOR T=7701 TO 7660 STEP ~1 
1055 FOR Ye@ TO 1Q:NEXT 

1060 POKE T+1,92:POKE 7,81:NEXT 
1065 POKE 36876,240: POKE 36876,@ 
1072 GOTO 1030 
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Perioneral Devices 


The VIC 20 can be connected to many peripheral devices, including 
the VIC 1515 Graphic Printer, the VIC Datassette, and the 1540 Disk Drive. 
These devices expand the capabilities of the VIC by giving it the ability to 
produce permanent copies of its output on either paper or magnetic media 
such as cassette tape or floppy diskettes. Storing information on magnetic 
media can also increase the amount of memory space available (the VIC has 
only 3.5K of memory without expansion). 

With the addition of a VIC Modem, the VIC can communicate by 
telephone with any other computer that has a similar device. The Modem 
also allows access to computer networks, which provide services such as 
stock market updates, computer shopping, and electronic mail. 


Storing Data 


The most common media for storing data on microcomputers are 
floppy diskettes and magnetic tape. Diskettes have the advantage of being 
random-access devices. That is, they can directly store or retrieve data at any 
location on their surface. Tapes store data sequentially (one file after 
another) and must be manually rewound to access data that have already 
been passed. What they lack in speed and flexibility, however, tape systems 
make up in cost. They are much less expensive than disk systems. 


249 
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Computer data are stored in files. This allows you to locate information 
you have placed ina certain category. To look up a word beginning with “C” 
in the dictionary, you would turn to the section with the heading “C.” 
Similarly, to find information on a cassette or diskette, you would instruct 
the computer to locate a section (file) with a heading (file name) you 
assigned. 

VIC data files can have names that are much longer than the single- 
letter headings in the dictionary: File names can be up to 16 characters long. 
The length of the files is limited only by the space available on the diskette or 
cassette tape. The number of files on a 1540 diskette is limited to 144. 

There are two kinds of files: program files and data files. 


Program Files 


Whenever you have a program in the computer memory that you wish 
to save in order to use it again, you may SAVE it on tape or diskette. To read 
it back into the computer, you LOAD it into memory. You should give each 
program a unique name so the computer can differentiate one from the 
other. When you are using the Datassette to store programs, you don’t have 
to use file names, since the computer can simply be instructed to LOAD the 
first program it encounters. This is not true of the disk drive. You must tell 
the computer which file you want when you load or save on a disk. 

To use a program file, you load and run it, just as if you had entered the 
program by hand. The advantage is that you do not need to enter the 
program by hand. In general, the size of a program you store on disk or tape 
will be limited to the amount of memory available in your computer. This is 
because a program is normally saved in its entirety. You cannot easily save 
part of a program and then save the rest of the program later. 

One way to handle programs that will not fit into your computer’s 
available memory space is to break them into shorter programs and simply 
load each section of the program separately and run it. In this fashion, you 
can execute programs that are much larger than the memory space in your 
VIC. 

If you decide to do this, make sure that the first program section that 
you load is longer than any of the sections it calls. This is necessary because 
the program variables will be stored at the end of your program’s first 
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section; if a longer routine is loaded into memory, either your variables or 
part of the new program segment will be lost. 

To load the next program segment from within a program, just end 
your first segment with 


LOAD “second program name”,8 


This will load and run the next segment. 


Data Files 


Data files do not contain programs, so they cannot be loaded and run. 
They contain data that must be loaded into memory by a program or entered 
by you in immediate mode. 


RECORDS AND FIELDS 


The information in a data file can be broken up into records and fields. 
This is determined by the program reading the data from the file. To better 
understand this concept, consider a data file that contains a passenger’s 
flight information for a trip from New York to San Francisco and back. 


XYZ AIRLINES June 7, 1982 


John Doe 
1234 Home Place 
Small Town, New Jersey 


FLIGHT #303 


LEAVES JFK Int 1:45PM EST 
ARRIVE SFO Intl 4:28 PM PST 


XYZ AIRLINES June 9, 1982 


John Doe 
1234 Home Place 
Small Town, New Jersey 


FLIGHT #215 


LEAVES SFO Intl 9:15 AM PST 
ARRIVE JFK Int’] 4:45PM EST 
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The file contains information for the departure and arrival of the flights 
John Doe is taking to and from San Francisco. For simplicity, we will say it 
is a single file that contains two records: the trip to San Francisco and the 
trip back to New York. 

Each record contains several fields. The fields are the groups of charac- 
ters that form either complete words or numbers. For instance, the word 
“JUNE” contains four characters (or bytes) that are stored on the tape or 
diskette as the individual characters J, U, N, and E. Logically, however, the 
characters should be taken as the whole word: JUNE. Similarly, the 
numbers 2, 1, and 5 should be taken as the number 215. To distinguish the 
data within a record, it is important that the fields be separated. 


Data Transfer 


The first time you access a tape or diskette file, you may be misled into 
thinking that the system is not operating correctly. It would seem logical 
that the disk drive or Datassette would operate each time the program reads 
or writes from it. This will occasionally be the case, but not always. This is 
because the VIC has a small section of memory allocated as a data buffer. 
Each time information is read from the disk or Datassette, the buffer is 
filled. Until those data are exhausted, the drive or Datassette will not be 
accessed again. Similarly, when you write to the disk or Datassette, data are 
first stored ina buffer. When the buffer is full, all the data it contains will be 
stored at once. 


Logical Files and Physical Units 


Input/ output programming describes any programming that controls 
the transfer of data between the computer and a peripheral device such as 
the Datassette, disk drive, or printer. These are all external physical units. In 
order to transfer data to or from one of these physical units, it is necessary to 
indicate which one you are accessing. This is because each unit has a specific 
kind of interface and a particular way in which it must receive its input (the 
computer’s output). In addition, if more than one device 1s connected to the 
computer, you will need to indicate which device you are “talking to.” 

The computer can also receive data from the Datassette and disk drive, 
and the data it receives must be put somewhere. Look at the problem in 
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programming terms. If you want to input data from the keyboard, you 
would use a BASIC statement such as 


1@ INPUT A 


This line stops program execution and waits for you to enter some data from 
the keyboard and press RETURN. The data are assigned to the variable A. 
Unless the VIC is told otherwise, all input statements such as the one above 
look for data coming from the keyboard. 

If you want to output some data to the video screen, you might use the 
following statement: 


26 PRINT A 


The value of variable A will appear on the screen. 

The INPUT statement tells the computer it is to receive some data, and 
the PRINT statement instructs the computer to output some data. Although 
data are usually sent from the keyboard and received by the video screen, 
these are not the only devices available. 

To “talk” or “listen” to another device, you will first need to open a 
logical channel to that device. This is accomplished using the OPEN state- 
ment. With this statement, you designate what channel you are using and 
what device number you are addressing. Every physical unit (peripheral 
device) has a unique device number. The channel you open is called the file 
and the number you assign to it is its file number. The format for an OPEN 
statement is as follows: 


10 OPEN fn, dn, sa, filename 
where: 


fn The file number is the number you use to access the file. You may 
choose any number between 0 and 255 


dn The device number is the number of the peripheral device you are 
addressing 


sa The secondary address sets up certain parameters for the device being 
used 


filename The file name is used to specify the file during a read operation. If you 
specify a file name when you write the file and when you read it on the 
Datassette, all files will be skipped until the one you specified is found. 


Table 8-1 shows the device numbers and secondary addresses that 
correspond to the VIC’s logical devices. 
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TABLE 8-4. Device Numbers and Secondary Addresses 


Operation Performed 


Open for read ; 

Open for write 

Open for write, but add End- 
of-Table mark (EOT) on close 


Keyboard 


Cassette 
Drive # 


Video 
Display 


Line. 

Printer 
Models 

1515 or 1525 


Alternate character set 


Load a program file to the 


Disk computer 
Drives Save a program file from the 
(all models) computer 

Unassigned 


Open command/ status channel 


Other Device numbers and second- 


devices pa ary addresses are selected 
connected 9 = h and assigned by the manufac- 
to IEEE 488 — turer of the device connecting 


Bus to the IEEE 488 Bus. 


12 to 255 
unavailable 
at this 
time 


*Normally 8, but may be set to 9, 10, or 11 (See the section on multiple disk 
systems). 


Datassette Files 


Now that you have had a chance to look at files in a general way, you 
can apply them to reading from and writing to the Datassette. The VIC 
Datassette is the default external storage device. That means that if you 
don’t specify which device you are writing to, the information will go to the 
Datassette. | 
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For example, to save a program called FILENAME on the Datassette, 
you would type 


SAVE "FILENAME" 


and press RETURN. If you have pressed the PLAY and RECORD keys on the 
Datassette, the Datassette will start operating. After your program has been 
saved, the Datassette will stop, the cursor will start flashing again, and the 
computer will display READY on the screen. 

To load the program from the Datassette, type 

LOAD "FILENAME" 
If the PLAY button has been depressed, the Datassette will operate and the 
computer will display 

SEARCHING FOR FILENAME 
As it passes the various programs that precede the one being looked for, it 
will display their names. 

FOUND OTHERFILE 

FOUND WRONGFILE 

FOUND NEXTFILE 
When the program requested is found, it will display 


FOUND FILENAME 


LOADING 


WRITING DATA FILES 


Writing program files into a Datassette file is a simple task. Putting 
data into a Datassette file is almost as easy, but it does require a basic 
understanding of how the information is put onto tape. 

The most common method of storing data is by simply printing the data 
one item at a time to the Datassette. This can be done by entering the 
following statements. 

First, you will need to open a file. 

19 OPEN 1.1,2,"DATA FILE" 


This will open a Datassette file with the number | and the name DATA 
FILE. When the file is closed, it will write an end-of-file marker onto the 
tape, which indicates to the VIC 20 that no more records exist in the file. 
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Now you can enter the data from the keyboard. 
20 INPUT A¢ 


If you were entering numeric data, you could use a numeric variable such 
as A. 

At some point you will want to end the data entry. Let’s say that if you 
enter XXX the computer will branch out of the routine. 


30 IF A$ = "XXX" THEN 69 


If the input was not XXX, you'll want to save it on tape 
40 PRINT#1, AF 
and go back for more input. 
98 GOTO 20 
If you are done entering data, close the file. 
60 CLOSE 1 


To run this program, you should first wind a fresh tape all the way 
forward and rewind it again until you can see where the nonmagnetic leader 
and the actual magnetic tape meet. Make sure that this is in the center of the 
cassette opening (see Figure 8-1). 
Here’s the complete program. 


1@ OPEN 1,1,.2, "DATA FILE" 
28 INPUT At 

30 IF A$ = "XXX" THEN 69 
40 PRINT#I, AS 

38 GOTO 20 

6@ CLOSE 1 


Now close the lid and run the program. The program will pause (and 
the cursor will disappear) for a few moments while the file is opened and the 
name of the file is written onto the tape. The cursor will return and a 
question mark will appear. Enter some characters and press RETURN. 

After entering a few items, enter XXX. The cursor should disappear 
again; this time the file is being closed and the data and end-of-file marker 
are being written onto the tape. 
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- Magnetic surface 


FIGURE 8-4. Tape position 


READING DATA FILES 


To read the data back from the tape you will need to open a Datassette 
file for reading. Add the following lines to the end of your Write Data 
program: 


7@ PRINT "REWIND TAPE" 

88 PRINT "WHEN THE TAPE IS" 

92 PRINT "REWOUND, PRESS STOP" 
189 PRINT "ON THE DATASSETTE" 
11@ PRINT "THEN HIT <RETURN>" 
126 INPUT C 

13@ OPEN 1.1.8, "DATA FILE" 


Lines 70 through 110 tell the operator to rewind the tape and to signal 
the VIC when the rewinding is completed by pressing RETURN. Line 120 
makes the computer wait until the tape has been rewound, and line 130 
opens the data file for reading. 
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Now you can begin reading data from the Datassette. 
140 INPUT#1., A$ 


This inputs the first record you entered and assigns it to the string variable 
A$. The statement 


15@ PRINT A$ 
takes the data that you just put into A$ and displays them on the screen. 


Status Register 


There is a special variable name (similar to TI and TI$) that indicates 
the status of the external devices connected to the VIC. This is the variable 
ST. Table 8-2 interprets the values of ST. 

To determine whether you have reached the end ofa file, you can check 
the value of ST from inside your program. If the value of ST is 64 you have 
run out of data. Add the following line: 


160 IF ST <> 64 THEN 150 


Your program will branch back to read another record from the file. 
If ST equals 64, all the data have been read and displayed. Close the file. 


170 CLOSE 1 


Then follow the instructions on the screen. The computer will display all of 
the items you entered in the previous section. 


Using GET# to Read Files 


It is also possible to use the GET command, just as you would from 
the keyboard. The GET# instruction reads one byte at a time from the 
Datassette. Change line 140 to 


140 GET#1, AS 
and, in immediate mode, type 
GOTO 7@ 


This time all the data are printed in a vertical column. Why? 
Look at line 140. The GET# function inputs only one character at a 
time. That character is then assigned to variable A$ and printed. The 
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Device 
Operation 


Read from 
cassette 
drive 


00000001 
Read as 1 


Operation 
OK 


Receiving 
device not 
available 


00000010 
Read as 2 


Operation 
OK 


Transmitting 
device not 
available 


00000100 
Read as 4 


Short 
Block. 


Data block: 


read had 
fewer bytes 
than ex- 
pected 


Downloaded from www.Manualslib.com manuals search engine 


00001000 
Read as 8 


Long 
Block. 
Data block 
read had 
more bytes 
than ex- 
pected 


00010000 
Read as 16 


Unrecov- 
erable 
read 
error 


Any 
verify 
mismatch 


00100000 
Read as 32 


Checksum 
error. One 
or more 
data bits 
read in- 
correctly 


01000000 
Read as 64 


End of file 
encounter- 
ed 


End of file 


10000000 


Read as 128 


End of tape 
encountered 


Disk drive 
not present 


SBDINEQ JOIBYCHAY :9 aIdOUD 


6S2 
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computer then does a carriage return, and the next character is input with 
the next GET#. 

At the end of each string, the computer automatically adds a carriage 
return, which acts as a delimiter separating one string from the next. This is 
usually desirable, since it causes the computer to separate the variables. In 
some applications, however, you may want to eliminate the trailing carriage 
returns. For example, you may want to conserve space in a tightly-packed 
file in which all the variables or strings are of the same length. In sucha case, 
you could leave out the carriage returns and separate the variables yourself. 

Remember, however, if you create a file that has no delimiters (carriage 
returns) you must separate the data yourself in your program. To suppress 
the carriage returns you could change line 40 to read 


40 PRINT#1, AF; 


Note: Generally the best programs are the ones that are the simplest. 
Therefore, before you use this method be sure that you need to. Also be 
aware that a file with no delimiters cannot be read by an INPUT# statement 
unless it contains less than 80 characters because the INPUT buffer holds 
only 80 characters. 


Disk Files 


The disk drive can store data and programs just as the Datassette does. 
The major differences between the disk drive and the Datassette are speed 
and accessibility. | 
The disk drive can access data much faster than the Datassette, and can 
access them randomly. That is, the drive can access any location on the 
disk’s surface to read or write data, while the Datassette must read and write 
all data sequentially. 


HOW DATA ARE STORED ON DISKETTE 


The data are stored on the diskette in concentric rings called tracks. The 
1540 Disk Drive has a total of 35 tracks. Each track may be addressed 
directly and therefore may be quickly accessed. In general, the disk drive will 
not record data onto an entire track. This would make the files needlessly 
long. To avoid this, each track is divided up into sectors, each of which 
contains 256 bytes. 


Downloaded from www.Manualslib.com manuals search engine 


Chapter 8: Perioheral Devices 261 


Look at Figure 8-2. You will see that the tracks on the diskette are not 
all the same length. The ones nearest the outer edge of the diskette are longer 
than the ones near the center. To make the most of the space available on the 
diskette, the 1540 Disk Drive puts more sectors into each of the outer tracks. 
The number of sectors per track varies from 17 on the inner tracks to 21 in 
the outer tracks. This means that one 1540 diskette can hold 176,640 bytes. 


Center Hole 


Tracks 1-17 (21 sectors/track) 

Tracks 18-24 (19 sectors/ track) 
Tracks 25-30 (18 sectors/ track) 
Tracks 31-35 (17 sectors/ track) 


Figure 8-2. 1540 Diskette sectoring pattern (by tracks) 
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DISKETTE SECTORING 


If you manually rotate the diskette inside its jacket, you will find one or 
more small holes in the diskette which come into alignment with the small 
hole in the jacket. If there is only one hole, the diskette is soft-sectored. If 
there are several holes, the diskette is hard-sectored. The holes in the 
hard-sectored diskette are used on some disk systems to position the sectors 
on the diskette. Since the 1540 disk drive provides its own special sectoring, 
you should only use soft-sectored diskettes. 


DISKETTE DIRECTORY 


Track 18 on the 1540 diskettes is used for the directory. The directory 
contains the names, starting sector addresses, and file types of all the files on 
the diskette. 

To list a diskette’s directory, load it into memory by entering 


LOAD "$",8 


The name of the directory file is $ (dollar sign), and we are loading it 
from device number 8 (the disk drive). To list the diskette directory, simply 
type 

LIST 


and the directory will be displayed on the screen. 


THE BLOCK AVAILABILITY MAP (BAM) 


The BAM resides on track 18 of the diskette. It contains information 
pertaining to memory space allocation on the diskette. 


INITIALIZATION 


Each time the disk drive is accessed, it compares the identifier number 
on the diskette with the ID number stored in disk memory. If the ID 
numbers match, the disk drive proceeds with the instruction it was given. If 
there is a mismatch, the disk drive automatically initializes the diskette. 

When the diskette is initialized, the contents of the BAM are copied 
into disk memory. This tells the disk drive which sectors are available to be 
written to. If the ID numbers of two diskettes are the same, the disk drive 
will not initialize automatically. It will not update the BAM with the 
allocation information and may write over sections of other programs or 


Downloaded from www.Manualslib.com manuals search engine 


Chapter 8: Peripheral Devices 263 


data. To avoid this, format your diskettes with different ID numbers when- 
ever possible. 
To manually initialize a diskette, use the following statements: 


OPEN 1.8.15 
PRINT#1, "INITIALIZE" 


A shorter version of this command is 
OPEN 1.9.15, "I" 


FORMATTING A DISKETTE 


Before you can use a new diskette, you must format it. Formatting 
writes a disk name, an ID number, and all of the track and sector informa- 
tion onto the diskette so that data may be written onto it by the VIC 20. 

To format a diskette that has never been used before, use the following 
commands: 


KAN 


ee oo 


eu suatrorttea 


The disk name can be any 16-character string you choose. The ID can be any 
number you choose. The Disk Operating System (DOS) uses the ID number 
to determine which diskette is in your drive. Remember to use a different 
number for each of your diskettes; that way the disk drive will always be able 
to determine whether it should initialize or not. If the IDs of your diskettes 
are all different, the initialization will be automatic; otherwise, you will need 
to do it manually each time you change diskettes. 

A good way to ensure that all of your diskettes have different IDs is to 
format an entire box of diskettes at once, numbering them sequentially. 
When you need to use them, you can perform a short version of the 
FORMAT instruction which erases all data on the diskette and renames it, 
leaving the ID number the same. That way, no two diskettes in the box will 
have the same ID number. To do this, use the following FORMAT 
instruction. 

Note: This will not work on new (previously unformatted) diskettes. 


OPEN 1.8.15 
PRINT#I, "N:diskname" 
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Notice that in the above examples the letter ““N” is used instead of the word 
NEW. N is an acceptable abbreviation for the NEW (disk) command. 


If you have a file with a name that you feel is inappropriate, you may 
change its name using the RENAME instruction. To rename a file, use the 
following format: 


OPEN 1,8,15 
PRINT#1, "RENAME: NEW FILENAME = OLD FILENAME" 


You may use the abbreviation R in place of the word RENAME. Thus, 
if you wanted to change a file named DOG.1 to CAT.1, you would enter 


OPEN 1,8,15 
PRINT#1, "R: CAT.1 = DOG.1" 


Erasing Files 


To erase a file from your diskette, use the SCRATCH command. Its 
format is shown here. 


OPEN 1.8.15 
PRINT#1, "SCRATCH: FILENAME" 


The abbreviation S may be used in place of the instruction SCRATCH. 
Therefore, you can also use 


PRINT#1, "S$: FILENAME" 


to erase programs or data. 


The VALIDATE Command 


The VALIDATE command may be used to “clean up” a diskette. After 
a time there may be some files on your diskette that were not properly 
closed, or various files that were used as temporary storage and are not even 
part of another file. To perform this housekeeping, use the VALIDATE 
command. It deletes any unclosed files and frees any blocks that were 
previously allocated but not associated with any specific file. 
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Copying Files 


You can makea copy of any file on your diskettes by using the COPY 
command. The same command with slightly different syntax will concaten- 
ate diskette files as well. 

To make a copy of a program on the same diskette, use the following 
command sequence: 


OPEN 15.8.15 
PRINT#1S, "COPY: NEW FILENAME = OLD FILENAME" 


You may use the abbreviation C in place of the word COPY, as in the 
following example: 


OPEN 15,8.15 
PRINT#15, "C'DOG.2=DOG. 1" 


Disk File Concatenation 


Two or more files may be joined together, or concatenated, to forma 
single file. To create a new file named NEWFILE, for instance, out of the 
data files OLDFILE.0, OLDFILE.1, and OLDFILE.2 on diskette, use the 
following command: 


PRINT#1, "C: NEW FILE = OLD FILE 1, OLD FILE 2" 


Note: The maximum length of a disk command string is 40 characters, 
so keep your file names short. 


Multiple-Disk Systems 


If you have a system with more than one disk drive, you may copy files 
from one diskette to another. Before you do, however, you will first need to 
differentiate between disk drives. 

When the 1540 Disk Drives are first powered up, they all have a device 
number of 8. If you connect more than one disk drive to your system, each 
drive will need a different device number. The device number may be either 
8,9, 10, or 11. To change the device number of a disk drive, follow these 
instructions. 
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1. Turn off all drives except the one you are changing. 


2. Open a command file, such as 


OPEN 15,8,15 


3. Enter the following command sequence. Note: Don’t worry if you 
don’t understand this sequence; this kind of instruction is covered in 
more detail in the section on advanced disk commands. 


PRINT@#1S, “M-W"CHRE< 1 1S CHRS<B>CHRE<6 2 CHRE6 9432 CHRE(9+64 > 


This instruction will change the disk to device number 9. To 
change the disk drive to another device number, add that number, 
instead of 9, to 32 and 64 at the end of the command. 


4. Turn on the next drive and repeat the command sequence above, 
using a different device number for each drive added. 


Note: Do not turn off any drive that has been changed. This will erase 
the new device number. 


Disk Data Files 


Just as there is a difference in the way that data files and program files 
are handled by the Datassette, there is a difference in the way that data files 
and program files are handled by the disk drive. 

There are three different kinds of information that can be stored on the 
disk drive. The first, program files, has already been covered. The second 
type is sequential data files, and the third, random access files. 


SEQUENTIAL FILES 


Like sequential data files on the Datassette, sequential data files on the 
1540 Disk Drive must be opened before they can be accessed. To open a 
sequential data file to the disk, use the following format: 


OPEN Ifn, dn, sa, “drn:file name, SEQ,W” 
where: 


lfn is the logical file number 


dn is the device number for the disk drive 
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sa is the secondary address. You can use any number between 2 and 14. 
Both 0 and | are reserved by the VIC for LOAD and SAVE operations 
and 15 is used to open the command channel 


drn is the drive number. This may be omitted if you have a one-drive 
system 


filename _ is the name of the file you are accessing 
SEQ _indicates that this will be a sequential data file 


W _sindicates the write mode. You may also read. The READ command 
may be abbreviated as R. 


Here’s an example of writing to a file named AIRLINE. 
OPEN 2,8,4,"@: AIRLINE, SEQ. W" 


Whenever you open a file on the disk drive, the red activity light on the 
front of the drive will light until the file is closed. If you try to open in write 
mode a sequential file that already exists, the red activity light will flash, 
indicating an error condition. 

If you want to write over a file that already exists, you can modify the 
above OPEN command as follows: 


OPEN 1,6,10,"@0: AIRLINE, SEQ, W" 


The @ tells the disk drive that you want to overwrite the data in the specified 
file. | 

If the file does not exist, the normal OPEN procedure will be carried 
out by the disk drive. 


USING STRING VARIABLES AS FILE NAMES 


You can use a string in place of a file name if you want to generate file 
names from within a program. 

Here’s an example of a program that asks you for the name of the file 
before it is opened. This allows you to use the same program to open 
different files. You might do this in a word processing program that has 
different names for each text file. 


1@ INPUT "FILE NAME"; FNS 
20 OPEN 2.8.4, "QO'"+ FNS+ "JW" 


Line 10 requests a file name. In line 20, the file name is concatenated to 
the OPEN file string. This is important, because the OPEN command must 
be a single string. Using the Plus (+) operator accomplishes this. 
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CLOSING DISK FILES 


As a program writes data to a disk file, the data are first written toa 
buffer. When the buffer is full, the data are written onto the diskette. If you 
are done writing data to the diskette and the buffer is not yet filled, the data 
will not be written onto the diskette unless you close the file. Closing a file 
writes the data in the buffer onto the diskette whether or not the buffer is 
full. It is therefore very important that you close all files when you are done 
writing data to them. 

Note: You may keep only ten files open with the VIC, and only five of 
them to the disk drive. Therefore, it is advisable to close channels after 
reading them as well as after writing to them, even though leaving a channel 
that you have read will not cause the same kind of catastrophic failures as 
failing to close a file that has been written to. 


The PRINT# Command 


The PRINT# command is used to transfer data to the disk drive or any 
other peripheral device. The VIC 20 automatically sends a carriage return at 
the end of each file record to terminate it properly. In some cases, such as 
printing to the 1515 printer, you may want to send a carriage return and a 
line feed to terminate the records in a file. 

Use logical file numbers | through 127 to send a carriage return only, 
and logical file numbers 128 through 255 to send a carriage return-line feed 
after each record. 


Reading a Data File 


The INPUT# and GET# statements work in basically the same way on 
disk files as they do on Datassette files. The INPUT# statement can read 
strings no longer than 80 characters. To read longer strings, it will be 
necessary to use GET# and read the strings one byte at a time. 


Random Access Files 


You can create random access files by directly addressing diskette data 
blocks and memory buffers. Each data block occupies a single sector of the 
diskette. There are eight buffers available on the VIC 20, but four of them 
are used for the Block Availability Map, variable space, command channel 
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I/O, and the disk controller. This leaves you with only four buffers for 
random access files. Be sure not to open more than four buffers at a time. 
Opening more than four will result in a system error. 

Information is written to diskette random access files using the 
PRINT# command. The files are specified through parameters in the OPEN 
statement. The format for opening a random access file is as follows: 


OPEN Jf/n, dn, sa, “# buf” 
where: 


lfn is the logical file number. For performing data transfers, use logical file 
numbers between 2 and 14. To perform any utility command, use logical 
file 15. In general, it is a good idea to open the command channel (15) and 
a data channel for each operation 


dn is the device number 
sa is the secondary address (it must have a value between 2 and 14) 


buf is the buffer number allocated to the specified secondary address. You do 
not need to use this specification. If you leave it out, DOS will automati- 
cally select a buffer. 


DISK UTILITY INSTRUCTIONS 


The VIC 20’s disk utility instructions are described in this section. Table 
8-3 provides a summary of these commands. 


BLOCK-READ 


The BLOCK-READ command reads any sector (block) into one of the 
memory buffers. To read a block, you would first need to open the com- 
mand channel (15) as follows: 


1@ OPEN 15.8.15 
Now a direct access channel must be opened. 


20 OPEN 2.6.4, "#" 


You can select which block you want to read (by track and sector). 
3@ INPUT "TRACK": A 
4Q@ INPUT "SECTOR"; 8 
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TABLE 8-3. Disk Utility Instruction Set 


ee 


BLOCK-READ PRINT#15, “B-R:”ch;dr;t;s 

BLOCK-ALLOCATE PRINT#15, “B-A:”dr;t;s 
~BLOCK-WRITE PRINT#15, “B-W:”ch;dr;t;s 
BLOCK-EXECUTE PRINT#15, “B-E:”ch;dr;t;s 
BUFFER-POINTER PRINT#15, “B-P:”ch;byte 
BLOCK-FREE PRINT#15, “B-F:”"dr;t;s 


MEMORY-WRITE* PRINT#15, “M-W:”CHRS$(adr1)CHRS$ 
(adrh) 
CHR$(#bytes)CHR§$(data)CHR$ 
(data)... 


PRINT#15, “M-R”CHR$(adrl1)CHR$ 
(adrh) 


PRINT#15, “M-E”CHR§(adrl)CHR$ 
(adrh) 


Replacement for BLOCK-READ 
Replacement for BLOCK-WRITE 
Disk Processor JMP $0500 

Disk Processor JMP $0503 

Disk Processor JMP $0506 

Disk Processor JMP $0509 

Disk Processor JMP $050C 

Disk Processor JMP $050F 

Disk Processor JMP $FFFA 


MEMORY-READ* 


MEMORY-EXECUTE* 


Ul 
U2 
U3 
U4 
US 
U6 
U7 
U8 


Disk Processor JMP power-up vector 


*You must use the abbreviation for these instructions. 


The following statement reads a block of data into the buffer: 


8 PRINT#IS, "B-R:"4;0;A;B 
Let’s look at the components of this instruction. 


PRINT#15 to perform any of the commands in this section, you must usv 
the command channel (15) 
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“B-R:” is the abbreviation for “BLOCK-READ:”. The colon within the 
_ quotation marks positions the data that follow the instruction 


4 is the secondary address from line 20 above 


Q isthe drive number. This is mandatory when you are using the 
direct access instructions 


A is the track number that was input in line 30. Although you may 
use variables to designate track and sector in these instructions, a 
constant can be used as well 


B is the sector number. 


All of the data—secondary address, drive number, track number, and 
sector number—in this instruction must be separated by semicolons, as 
shown in the example. 

Now that the data in your selected block has been transferred to the 
buffer, you will need to use a GET# or an INPUT# statement to extract it 
from the buffer. 

The INPUT# statement retrieves all bytes up to and including the first 
carriage return it finds. Since you may not know the exact data in a sector 
before you read it, you may overrun the length of the INPUT#, which can © 
hold only 80 bytes. 

Because of this limitation of the INPUT# statement, it is preferable to 
use the GET# statement when you are unsure of the data you will read. It will 
read the data one byte at a time. 


60 GET#2, AY 


There are 256 bytes of data in each block, but not every block is full. To 
read all the data in a block and stop at the end of the file, test the status 
variable (ST) to see if it is zero. 


70 IF ST=@ THEN PRINT AF; ‘GOTO 68 


Note: Although there is a trailing semicolon in the PRINT statement, 
the display will jump to the next line whenever it reaches a carriage return in 
the data, separating the data just as they were entered. 

If ST= 0, there are still more data, and you can go back and get another 
byte. Otherwise, close all channels when you are done with them. 


8@ CLOSE2: CLOSEIS 
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Here is the whole BLOCK-READ program. 


19 OPEN 15,8,15 

20 OPEN 2.8.4, "#" 

36 INPUT "TRACK"; A 

49 INPUT "SECTOR"; B 

98 PRINT#15, "B-R:"4;8;A58 

60 GET#2Z, AS 

76 IF ST8@ THEN PRINT AS,: GOTO 68 
88 CLOSE 2: CLOSE 15 


BLOCK-ALLOCATE 


The BAM keepsa record ofall blocks that have been allocated (contain 
data). In the higher-level instructions (SAVE and so forth) the DOS (Disk 
Operating System) uses this information to determine where data can be 
written on the diskette. 

When you are using the direct-access functions, however, the DOS does 
not use the BAM and you can write anything into any block on the diskette, 
whether or not it already contains data. You can write data anywhere, even 
over the directory and BAM, but you should avoid this. You can lose 
normal access to everything on your diskette if you write to it indiscrimi- 
nately. It is therefore advisable to perform a BLOCK-ALLOCATE instruc- 
tion before attempting to write a block. 

The BLOCK-ALLOCATE instruction checks a sector to determine if it 
already contains data. If it is available (as indicated in the BAM), it marks 
the sector as allocated. If it is already allocated, it leaves the BAM 
unchanged and indicates the next available sector in the error channel. 

Here is a routine to perform a BLOCK-ALLOCATE. 


19 OPEN 15.8,15 

20 INPUT "TRACK": A 

3@ INPUT "SECTOR"; B 

4@ PRINT#15. "B-A:"@;AsB 


The components of the BLOCK-ALLOCATE instruction are as follows: 


PRINT#15, activates the command channel 
“B-A:” is the BLOCK-ALLOCATE instruction 
0 is the drive number 
A is the track number 
B is the sector number. 


Downloaded from www.Manualslib.com manuals search engine 


Chapter 8: Peripheral Devices 273 


6@ INPUT#15,E.EM$,1.$ 
7@ PRINT E.EM$ 

88 PRINT T.S 

98 CLOSE 15 

939 END 


After every disk operation the disk status can be read through the error 
channel. This is accessed by reading the values of four variables available to 
the command channel (15). In the case of aBLOCK-ALLOCATE instruc- 
tion, the error channel will tell you if the track and sector you chose are 
available. If they are not available, it will give you the number of the next 
available track and sector. 

Line 60 checks the error channel, putting the information contained in 
it into variables E (error code), EM$ (error message), T (track), and S 
(sector). Lines 70 and 80 print the data and lines 90 and 99 close the channel 
and end the program. 

If you were using this as a siibrouline within a program, you could use 
the data obtained from the error channel to allocate another block if the one 
you wanted was already occupied, since the next available track and sector 
will have been placed into the error channel. If the sector is free, the message 
“OK” will be displayed. 


BLOCK-WRITE 


Whenever you use BLOCK-WRITE, you should perform a BLOCK- 
ALLOCATE first to determine if the sector you want to write to is available. 
If it isn’t, you will know the next available sector. 

The following BLOCK-WRITE program uses BLOCK-ALLOCATE 
to check the selected sector: 

19 OPEN 13,8.15 

28 INPUT "TRACK"; A 

36 INPUT "SECTOR"; B 


40 PRINT#I5, "B-A: "GASB 
3@ INPUT#15,.E,.EM$,T,$ 


Now you must look at EM$ to determine whether the sector you selected is 
available. 


6@ IF EMS = "OK" THEN 180 


If it isn’t, then use the values obtained through the error channel as your new 
track and sector. 
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78 A=T 
86 B=S 


Note: If there are no more available sectors on the diskette, the error 
channel will return track 0 and sector 0. These do not designate a real sector 
and will cause an error if you try to write to that location. To make sure you 
don’t have this problem, recheck the error channel. If there are zeros in 
variables T and S, then you need to check for sectors with lower numbers. 


96 IF A=@ AND B=6 THEN PRINT "DISK FULL":GOTO 168 
If you don’t get this error, continue with your BLOCK-WRITE. 
106 PRINT "TRACK";As" "; "SECTOR": B 
195 OPEN 2.38.4, "#" 
116 INPUT AS 
If you input an X, the program will terminate data input. 
120 IF A$ = "X" THEN 1598 
If not, then put the data into your file 
130 PRINT#2, A$ 
and go back for more. 
148 GOTO 118 
Use the following statement to put the data into your selected sector: 
15@ PRINT#1S, "B-W:"4;0;A;B 


Note: The format of the BLOCK-WRITE instruction is the same as 
that of the BLOCK-READ instruction. 
Once more, you must close your files and end the program. 


160 CLOSE 2: CLOSE 15 


BUFFER-POINTER 


As you have seen, the data buffer stores information that is read in 
from the diskette. The buffer pointer keeps track of which byte is being read 
and advances by one each time a byte is read. 
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Suppose you wanted to read the data in a specific 240-byte file as 
separate records. The first record resides in bytes 1 through 120 and the 
other is stored in bytes 121 through 240. Reading the files in order would be 
easy because the BUFFER-POINTER would already be at the point where 
the second file starts after reading the first file. But what if you only wanted 
to read the second file? — 

One way to read the second file would be to perform 120 GET# 
instructions, using a short loop, until you got to byte 121. 

This can be accomplished more easily, however. The BUFFER- 
POINTER instruction will allow you to point at any byte in the buffer. Its 
format 1s 


PRINT#15, “B-P:” sa;byte 
where: 
PRINT#I15, activates the command channel 
“B-P:” is the BUFFER-POINTER command 
sa; is the secondary address 


byte is the byte you want to access. 


For example, if you wanted to GET the 120th byte of a block, you 
would use 


PRINT#IS, "B-P: "4515 


BLOCK-FREE 


The BLOCK-FREE instruction will deallocate any block on the 
diskette. This instruction tells the BAM to mark the block specified as 
available, thus allowing data to be written to the block. 

To perform a BLOCK-FREE, use the following format: 


OPEN 15,8,15 
PRINT#I1S, “B-F:” dr;trk;sec 
where: 
PRINT#15, activates the command channel 
“B-F:” is the BLOCK-FREE command 
dr is the drive number 
trk is the track number 


sec is the sector number. 
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Here is a routine you can use to free any block on the diskette. 


1@ OPEN 15,8,15 

28 INPUT "TRACK"; A 

38 INPUT "SECTOR"; B 

46 PRINT#1S, "BHF: "Q;AsB 
5@ CLOSE 15 

99 END 


DISKETTE MEMORY MANIPULATION 


The 1540 controller interprets external commands and causes the disk 
drive mechanism to carry them out. The controller contains a 6502 micro- 
processor, just like the one inside the VIC 20. It has 2K of RAM and the 
Disk Operating System (DOS), which is contained on two ROM chips. 

Some of this memory is used for the buffers discussed in the last few 
sections; some is used for housekeeping purposes such as maintaining the 
BAM data and special file information; and some is available for you to use 
for special applications. 

The RAM that is available for you to write routines on is the same 
RAM that is used by DOS for the buffers. If you decide to write a special 
machine language program into those areas you will have to keep track of 
which areas you are using and which areas you will reserve for buffers. 
There are five pages of memory, each of which contains 256 bytes. 


Buffer Memory Location 
(Hexadecimal) 
#1 300—3FF 
#2 400—4FF 
#3 500—S5FF 
#4 600—6FF 
#5 700—7FF 


It is not advisable to use buffer #5, because this buffer is often used by 
DOS for various housekeeping activities. Although it is not always in use, 
data placed there may alter DOS procedures or may be written over by 
DOS. 

The memory space in buffers 1 through 4 is used only by the buffers. If 
you haven’t requested a buffer, and you know that one has not been opened 
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by the system, you may use that memory freely. One method is to specify 
which buffers you want when you open a disk channel and write your 
routines in one or two of the buffers that are not in use. 

The information that follows is not intended for beginning pro- 
grammers. The use of the MEMORY-READ, MEMORY-WRITE, and 
MEMORY-EXECUTE commands requires a thorough understanding of 
machine language programming and the Disk Operating System. 


MEMORY-WRITE 


To store data into the disk drive memory, you will need to use the 

MEMORY-WRITE command. Like POKE in BASIC, this instruction 

_ puts whatever data you specify into any memory location you want. Take 
the example of a POKE statement. 


POKE 768, 255 


There is only one byte transferred with each POKE statement. The 
MEMORY-WRITE command allows you to transfer up to 34 bytes with a 
single statement. To perform the same operation using MEMORY-WRITE 
you would need to convert the decimal memory location into a hexadecimal 
number; 300 is the hexadecimal equivalent of decimal 768. Since you can 
transfer only one byte at a time with a POKE command, BASIC always 
knows how many bytes to expect. With the MEMORY-WRITE command, 
you will need to indicate how many bytes are going to be transferred. In this 
case, only one byte is going to be transferred, so the command will be quite 
short. 

There are some special constraints that must be used with these instruc- 
tions since they are actually just extensions of machine code. 


I. The memory address must be entered as two bytes, low byte first, 
then high byte. 


2. All of the data must be transferred as character strings (CHR$). 


3. The 6502 understands only binary data. The instruction allows you 
to enter numbers in hexadecimal; but BASIC doesn’t use that 
notation. For instance, 

65536 decimal = FFFF hexadecimal 
This is two hexadecimal bytes (FF and FF). To represent them 
in this mode, take the two bytes and convert each to its decimal 
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equivalent, 255. The number 65536 would then be stored into the 
1540’s memory as CHR$(255)CHR§(255). Any number that can be 
expressed in only one byte (0 to 255) must be entered that way. 


4. You must indicate how many bytes are being transferred. This 
should also be expressed as hexadecimal numbers converted to 
decimal notation, as above. 


5. The MEMORY-WRITE instruction must be abbreviated “M-W”. 
No colon or other punctuation is allowed. 


The code, then, to store 255 into memory location 768 ($0300) is as 
follows: 


OPEN 15,8,15 
PRINT#IS,. "M-W"CHRE (809 CHRS6 83> CHRS6 1 SCHRS( 255) 
CLOSE 15 


MEMORY-READ 


It is possible to read any memory location in the 1540 using the 
MEMORY-READ instruction. This instruction allows you to read one 
byte at a time from the disk drive memory, similar to the way PEEK allows 
you to read one byte at a time from the VIC 20’s memory. 

The BASIC instruction to read memory location 768 would be 


PRINT PEEKS 768) 


The same instruction using the MEMORY-READ instruction would look 
like this. 


49 OPEN 15,8,15 

58 PRINT#15, "M-R"CHRS (88d CHREC G3) 
66 GET#1S, AF 

78 PRINT AS 

68 CLOSE 15 


This is what happened: First, we opened the command (error) channel 
and then requested the MEMORY-READ instruction. On the same line 
(with no additional punctuation) the byte to be read was specified (low byte 
first, then high byte). This is memory location 300—the same as 768 
decimal. 
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Note: The instruction “M-R” is the only valid way to invoke this 
instruction. Spelling out the instruction will cause an error. 

After the data in that location are read, they can be transferred to the 
computer through the error channel (#15). To read them from the error 
channel we used the instruction GET# 15, A$. The values were then avail- 
able as variable A$, which we printed to the screen. Finally, we closed the 
command (error) channel. 

Since the data read from the 1540 memory are transmitted through the 
error channel, you should not try to read an error condition from the error 
channel again until you have closed it and reopened it. If you do not do this, 
you will get the data which were transmitted instead of the error message. 


MEMORY-EXECUTE 


The MEMORY-EXECUTE instruction is used to run a machine lan- 
guage program that has been entered into the 1540’s memory. The program 
must end with an RTS instruction so that the processor will return control 
to VIC 20; otherwise the 1540’s internal memory will probably go into an 
endless loop—if not worse. 

The format of the MEMORY-EXECUTE (M-E) instruction is essen- 
tially the same as that of the MEMORY-READ instruction. 

406 OPEN 15,8,15 

99 PRINT#IS, "M~E"CHR$(Q0>CHR$<B3> 

68 CLOSE 15 
This sequence will send the DOS into a routine that begins at the 1540's 
memory location 300 (768 decimal). 


USER COMMANDS 


The 1540 makes use of a number of commands called user commands 
(do not mistake these for USR routines, which are a part of BASIC). These 
commands perform a number of convenient functions that are similar to the 
other commands in this section. 


U1 


The UI command is similar to BLOCK-READ. In fact, its format is 
identical. Look at the BLOCK-READ command. B-R is simply replaced 
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with Ul. The B-R command reads only the data in a particular block 
(sector). The U1 command reads all the information in the block, including 
the two bytes that precede the 254 data bytes. These bytes contain the link to 
the next block. The link is the track and sector to go to next. 


The U2 command is similar to BLOCK-WRITE. The format of the U2 
command is identical to that of B-W. The difference between these two 
commands is that invoking B-W terminates the file. That is, the track and 
sector link (the two bytes that precede the 254 bytes of data in the block) are 
set to indicate that this block is the end of a file. The next track and sector 
are not pointed to. 

Obviously, this can cause some problems. If, for instance, you wanted 
to write some data into the middle of some existing data, using the B-W 
instruction would end the file in the middle. U2, however, would not. It 
allows you to write in the next track and sector or to leave it the same. 


U3-U9 


The next few user commands are similar to the MEMORY-EXECUTE 
command. They jump toa specific location in memory and begin executing 
at that location. The locations they jump to are listed in Table 8-3. 

The syntax for the U3 command, for example, is 


OPEN 15.8,15 
PRINT#IS, "UQ:”" 
CLOSE 15 


The command U: (or UJ) will jump the DOS to its power-up routine. 
The locations that the user commands jump to are only three bytes long. 
This is because they are intended to contain a JMP machine code instruc- 
tion to go to a program that you define. 
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THE VIC MODEM 


The VIC Modem allows your VIC 20 computer to communicate with 
other computers over telephone lines. This will allow your VIC to talk to 
other VICs directly and to acess the various computer networks. These 
allow you to use your VIC 20 as a terminal to a large mainframe computer 
somewhere in the network. The networks give you access to information 
such as stock market reports, articles from a variety of publications, airline 
schedules, and messages from other computer users. 


Installing the VIC Modem 


To install the VIC Modem, perform the following steps: 


1. Turn off the power to your VIC 20. 

2. Plug the VIC Modem into the VIC 20’s user port (see Figure 1-2). 
2; 

4. Load a program to operate the VIC Modem. A program called 


Turn the VIC 20 back on. 


VICTERM I is packed with the VIC Modem. There is also a 
program in the handbook that comes with the VIC Modem. Either 
of these will operate the Modem adequately. A program that turns 
the VIC (with its Modem) into 40-column terminal will soon be 
available. 


. Dial the appropriate phone number to reach either the network you 


wish to access or the other computer you are calling. 
If you are accessing one of the networks, you will need to code 
in, on the VIC, your ID and access code numbers. 
_ If you are accessing another computer, you will need to set your 
Modem to “O” (originate), and the computer you are calling must be 
set to “A” (answer). 


. When you hear a high-pitched tone, unplug the telephone receiver 


and plug the cord into the VIC Modem. 

Note: If you have a Trimline telephone, you will need a special 
adapter for the VIC Modem; it will not work with this kind of 
telephone because the telephone electronics are in the handset, 
which you unplug when you disconnect the cable. 


. Put the handset aside. Do not hang it up; this will disconnect the 


Modem. 
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Terminology 
The following is a list of common terms used in telecommunications: 


Modem The peripheral device used to convert the signals output by 
your computer into information that can be transmitted over the 
telephone lines. (“Modem” stands for “modulate/demodulate.”) 


Handshaking The process of sending data and waiting for an acknowl- 
edgement from the receiving computer. 


Full/half duplex These are two modes of handshaking. In full duplex 
mode, a computer sends some data and the receiving computer 
repeats the data back to the originating computer. If the data 
returned are the same as those sent, the originating computer 
sends the next byte. If they are incorrect, the data are sent again. 
In half duplex mode, the originating computer sends data and the 
receiving computer simply acknowledges that the data have been 
received. 


Baud rate This indicates the maximum speed at which data are trans- 
mitted and received. The VIC Modem sends and receives data at 
300 baud. Another way of describing baud rate is in BPS, or bits 
per second. A system running at 300 baud will send/ receive 300 
bits of data per second. 


Answer/originate When you connect to one of the networks, you will 
be calling the system. Since you are originating the call, your 
modem should be set to “originate.” This sets up the “introduc- 
tory” protocol in the electronics. If you are communicating 
directly with another computer, one computer must be in origi- 
nate mode and the other in answer mode. Once communications 
have been established, it makes no difference which is which. 


Parity In order to verify that the data transmitted are correct, some 
computers will send an extra bit called the parity bit along with 
the data. If the total of all the “ON” (or 1) bits, including the parity 
bit, is an even number, the transmission is odd parity. If the parity 
bit is missing, the transmission has no parity. To communicate 
properly, both computers must be set to the same parity. 


Word length This is the number of bits in each byte. Most computers 
use a word length of seven or eight bits. 
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Start/stop bits Some computers require that a certain number of null 
bits be transmitted after each byte. These null bits are called stop 
bits. If the system uses these, the most common number is one 
stop bit and one start bit. If this is the case, the total number of 
bits per byte increases to ten. This will slow the effective transmis- 
sion rate slightly, but will not impair the operation of the VIC 20 
or the modem. 


Line feed Attheend ofa line of data, the computer will typically senda 
carriage return. Some systems also require a line feed after each 
line or data file. 


ASCII This is the standard coding used to communicate the numbers | 
through 9 and upper- and lower-case letters. There are also a 
number of standard symbols and special characters used in the 
ASCII (American Standard Code for Information Interchange) 
system. The VIC 20 uses an extension of the ASCII character set 
for its extended character set, but should use this extended set 
only when communicating with other Commodore computers. 


THE 1545 GRAPHIC PRINTER 


The VIC 1515 Graphic Printer has a built-in character set that closely 
resembles the character set of the VIC 20. It includes upper- and lower-case 
letters, numbers, and graphic symbols. You can use the 1515 printer to print 
fully programmable custom graphics of almost any size. 


OPEN Statement 


In order to access the VIC 1515 printer you must open a file to it. The 
OPEN statement for the printer has the following format: 


OPEN jn, dn, sa 
where: | 


jn The file number is the number you choose to access the file. You may choose 
any number between 0 and 255 


dn _ The device number for the printer may be either 4 or 5. This number may be 
selected using a switch at the rear of the printer 


sa In most cases, you will not use a secondary address when you access the print- 
er. The one exception to this is covered in the section on the 1515 printer’s 
character sets. 
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Once you have opened a file to the printer, all you need to do to print to 
the printer is put your data in a PRINT# statement, such as 


PRINT#1, “YOUR DATA GOES HERE” 
The printer will print 


YOUR DATA GOES HERE 


CLOSE Statement 


After you have finished accessing a file, whether it is to the printer or 
any other device, you should always close the file. To close a file you would 
use the following format: 


CLOSE file number 
If you opened a file with a file number of 1, such as 
QPEN 1.4 

then you would close with 


CLOSE 1 


CMD Statement 


Everything the VIC outputs will normally be sent to the video display. 
The video display is known as the primary output device. It is possible, 
however, to change this to some other device, such as the printer, so you can 
print listings instead of merely looking at them on the screen. | 

This is done with the CMD instruction. The format of a CMD instruc- 
tion is 

CMD device number 


Let’s instruct the VIC to use the printer as the primary output device. 
First we'll need to OPEN a file to the printer. 


OPEN 1,4 


Then we can use the CMD instruction as follows: 
CMD 1 
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Noweverything that the VIC would normally display on the screen will 
be printed on the printer including the READY message, the display, and 
error messages. Your entries will still be displayed on the screen. To see this, 
try performing some PRINT statements. 


EXITING THE CMD MODE 

There are three ways to exit the CMD mode. 

1, Press RUN/STOP and RESTORE at the same time. This will reset the 
entire system and restore the computer to its default condition. 

2. Redirect the CMD instruction to another device, such as the video 
screen, device #3. 
CMD 3 


3. Enter a PRINT# instruction to the primary device. For example, if 
you had made the primary device #1 with CMD 1, you would exit 
this mode with 


PRINT#1 


Of the three methods, the last—using a PRINT# instruction—is pre- 
ferred because it will exit the CMD mode and also empty the printer buffer. 
Characters may have been left there from an incomplete PRINT statement 
(one that was terminated with a semicolon). 


1515 Printer’s Character Sets 


Type your name at the VIC 20’s keyboard. Press RETURN and type 
some hearts (SHIFTS ) on the next line. Now press the Commodore symbol 
key and SHIFT at the same time. The letters of your name will become 
lower-case letters and the hearts will become upper-case S’s. 

Both the VIC 20 and the 1515 have two separate character sets avail- 
able, and you can select either set at any time. There are two ways to select the 
different character sets. 


1. Specify a secondary address of 7 when you OPEN the printer file. 
OPEN 1.4.7 


This will select the alternate character set. 
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To access the default character set (the one that is displayed 
when you first turn the VIC on), OPEN your printer file with 
OPEN 1.4 ‘ 


leaving out the secondary address. 


2. Print the command CHR$§(17) for the alternate character set or 
CHR$(143) for the standard character set, as in the following 
example: 

16 OPEN 1.4 
26 PRINT#1.CHR$¢17>; "LOWER CASE" 


36 PRINT#1, CHRS(143); "UPPER CASE" 
46 CLOSE 1 


Print Formatting 


The formatting instructions TAB and SPC and the comma and semi- 
colon help you to position data on the video screen. Although the printer 
also uses these instructions, it does not treat them exactly as the video 
display does. 


THE COMMA 


The comma starts data in two specific locations on the video screen: 
column 0 and column 11. Try this example. 

16 FOR T=0 TO 30 

20 PRINT T, 

38 NEXT 

Notice that two even columns are displayed, even though the numbers 
in them are of different lengths. On the printer, a comma will put I1 spaces 
between your entries, but they will not necessarily wind up in even columns. 
Try the same program on the printer. 

5 OPEN 1,4 

10 FOR T=@ TO 38 

28 PRINT#1, T, 


38 NEXT 
49 CLOSE 1 


THE SEMICOLON 


The semicolon operates in the same way on the printer as it does on the 
video display. It is used to separate variables without putting spaces 
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between them. Remember, however, that numeric variables will still be 
preceded by a space even with the semicolon. To see this, try the following 
program: 


18 OPEN 1,4 
20 A=21 : B=300 : AB=57 
36 PRINT#1,A;B;AB 


TAB and SPC 


The TAB and SPC instructions are so similar that they are often 
confused. The TAB function designates an absolute position, and the SPC 
function indicates a relative position. The following TAB statement will 
print an asterisk in column 10 of the screen: 


PRINT TABC1@3; "%" 


Now try the following statement. It will print one asterisk in column 10 
and another in column 11. 


PRINT TABC1@)5 "#"5 TABCI@> 5 "e" 


The SPC instruction begins at the current cursor position and counts 
the indicated number of spaces over from that point. Try the following SPC 
statement: 


PRINT SPCC1Q)5 "#";SPCC1Q); "#" 
Although this line looks almost identical to the TAB statement above, it 
prints one asterisk in column 10 and another in column 21. This happens 


because the SPC function starts counting at the space immediately after the 
first asterisk (column 11) and puts the next asterisk ten spaces away. 


Using POS to Tab the Printer 


When used in PRINT# statements, TAB and SPC both act like SPC. 
Note, however, that TAB and SPC cannot appear directly after PRINT# 
(for example, PRINT#1, TAB(20)). 

To take a look at these two functions, first open the printer file with 


OPEN 1,4 


Now type in the following line: 
PRINT#1,"";SPCC1@)5 "#";SPCC10> 5 "me" 
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This will print one asterisk in column 10 and another in column 21 on the 
printer. 

If you replace the SPC instruction with TAB, you will get exactly the 
same results. Try the following example: 


PRINT#1, ""i TABS1@) 5 "8" TABC 10); "me" 


To produce the TAB function on the printer, you will need to use the 
POS instruction. POS is sent to the printer as CHR$(16). Try the following 
example: 


PRINT#1, CHRE¢ 1635 "10%"; CHRS6 169; "10%" 


CHR{§(16) is the POS instruction. When the printer encounters this 
command, it uses the two characters immediately following the command 
to determine where on the line to begin printing. 

You can also use the character codes of the numbers to indicate the 
position. 


PRINT#1, CHR$¢16); CHRS649); CHRSC48); "#" 
Note: CHR$(49) is 1 and CHR§(48) is 0. 


Printer Graphics 


The printer has several different modes, which are described in Table 
8-4. The characters it receives will be treated differently in each mode. 

By using the various modes, you can print anything from standard text 
to full dot graphics. 7 


DOUBLE/SINGLE-WIDTH CHARACTERS 


To print double-width characters on the 1515 printer, use the com- 
mand CHR$(14) before the string you want printed. 


PRINT#1.CHR#¢14);"THIS SHOULD PRINT WIDE" 
To return to normal width, use the command CHR§(15). 
PRINT#1. CHR$(14); "WIDE"; CHR#¢ 155; "NARROW" 


REVERSE CHARACTERS 


Revefse field characters can be printed using the command CHR$(18). 
Try it with this example. 


PRINT#1.CHR#619); "REVERSE CHARACTERS" 
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TABLE 8-4. Printer Modes 


PRINT DOUBLE-WIDTH CHARACTERS CHR$ (14) 
PRINT SINGLE-WIDTH CHARACTERS CHR$(15) 
PRINT REVERSE CHARACTERS CHR$(18) 
PRINT NON-REVERSE CHARACTERS CHR$(146) 
GRAPHICS MODE CHR$(8) 
ALTERNATE CHARACTER SET CHR$(17) 
STANDARD CHARACTER SET CHR$(143) 
REPEAT GRAPHICS, MODE CHR$(26) 


Notice that the command CHR$(18) is the same as the CHR$ function, 
which prints reverse characters on the video screen. On the screen, typing 
CTRL RVS ON switches to reverse characters. This also works on the printer 
if you put the instruction ina PRINT# statement like the following: 


PRINT#L, "CCTRLDO<RYS ON>"; "REVERSE CHARACTERS" 
You can use either CHR$(146) or CTRL RVS OFF to leave reverse mode. 


GRAPHICS 


The command CHR§(8) causes the printer to enter the graphics mode. 
Graphics are created by printing patterns of dots. For instance, a 
smiling face could be made up of dots in the following pattern: 
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This pattern is converted into a set of numbers to be sent to the printer. 
This is done as follows: The rows (horizontal dots) are each given a numeric 
value. The top row is 1, the next row down is 2, and so forth, with each 
successive row being double the value of the one above it. The value of the 
seventh row is 64. Add up the numbers in the places that you want to print 
dots. To this number you then add 128, and that is the number that you put 
into the printer. 

Let’s examine the smiling face and determine what the value of each 
row should be to print it on the printer. 


o _ 
ee En he 
64} | me 
ie ee 


4+ 8+ 16= 28 
2+ 8+ 32= 42 
1+ 4+ 16+ 64= 85 
1+ 16+ 64= 81 
1+ 16+ 64= 81 
1+ 4+ 16+ 64= 85 
2+ 8+ 32= 42 
4+ 8+ 16= 28 


Look at column A. The dark squares represent locations in which the 
printer should print dots. Adding up the values of the locations in column A 
we get: 4+ 8 + 16 = 28. Column B is 2 + 8 + 32 = 42. 


If you continue through all eight columns you will get the values 28, 42, 
85, 81, 81, 85, 42, and 28. 
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To print these as a graphic shape, put the values into CHR$ statements, 
such as the following: 


1@ DATA 28,.42,85,81,81,85,42,28 
26 OPEN 1,4 

38 PRINT#1, CHRE(8); 

48 FOR R =1 TO 8 

38 READ A 

68 PRINT#1. CHRS(A+128); 

78 NEXT 

86 PRINT#1 

90 PRINT#1 


This will print a smiling face on the printer. You can print more smiling 
faces by repeating this pattern. 

You can also use the function keys to produce the special characters. 
Here’s a short program that prints whatever text you enter into it, plus a 
smiling face. 

The smiling face will be printed (on the printer only—an asterisk will be 
printed on the screen) each time you hit the F1 key. 


1@ OPEN 1.4 

28 GET AS: IF A$="" THEN 28 
36 IF A$ = "Fi>" THEN 76 
48 PRINT#1, AS 

38 PRINT A$; 

68 GOTO 26 

706 DATA 28,42,85,81,81,85.42,28 
86 PRINT#1, CHR$¢(8); 

98 FOR R=1i TO 8 

189 READ A 

116 PRINT#1, CHRSCA+128); 
126 NEXT: PRINT "#"; 

130 PRINT#i, CHR$(15) 

149 RESTORE: GOTO 2@ 


GRAPHICS REPEAT FUNCTION 


The graphics repeat function allows you to print any pattern of seven 
vertical dots as many times as-you like (up to 255 times per command). 
Here’s an example of a repeat function. 


OPEN 1,4 
PRINT#1. CHR#<(26>CHRE< 1G) CHRS (255) 
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This will print a solid horizontal bar seven dots high by ten dots long. 
CHR$§(26) is the repeat function, CHR$(10) is the number of times to 
repeat, and CHR$(255) produces the dot pattern containing seven vertical 
dots. 
This function can easily be incorporated into the smiling face routine 
above and used to expand the face. 


18 DATA 28,42,85,81,61,85,42,28 

20 OPEN 1.4 

34 INPUT "WIDTH" W 

4@ PRINT#1, CHRS<3); 

38 FOR R =1 TO 8 

6@ READ A 

78 PRINT#1, CHRS¢26) CHRSCW) CHRSCA+123); 
688 NEXT 

96 PRINT#1 


Put different values into the width variable when the program requests 
it and notice how the picture changes. Of course, this becomes impractical 
at some point, since it can become so wide that it is no longer recognizable. 
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system Architecture 


Figure A-1 is a block diagram of the VIC 20’s design architecture. It 
illustrates the relationships between several of the system elements described 
in Chapter 1. The arrows show the flow of data between these elements. 


16K ROM: User Port: 
oy cneiaciet BASIC and Light pen, 


generator 5 ; ee 
perating joysticks, 
ROM system ports X and Y 


. Serial Port: 
Bas disk drives, 
printer 
; 6502 
Micro- 


processor 


Audio Cassette 
interface interface 


storage and ae Keyboard 


user programs cartridges, 
special 
function/ Expansion 
video RAM 
games cartridges 


FicureE A-4. System block diagram 
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Memory Usage 


The memory area of the VIC 20 has several functions. The breakdown 
of memory functions is as follows: 


- Program storage 

- Data storage 

- Operating system 

- BASIC interpreter 

- I/O hardware access 

- Video display hardware access 

- Sound register hardware access. 


The memory maps and associated data in this appendix are a guide to 
using the VIC 20 memory locations. To look at any of these locations, use 
the PEEK instruction. To change any location, use the POKE instruction. 


Vic 20 Memory Map 


The memory maps in Table B-1 and Table B-2 describe every location 
in the VIC 20’s memory. The addresses are listed in both hexadecimal and 
decimal notation. 


295 
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TABLE B-4: Memory Map 


Hex Decimal Description 
Address Address 


0000 
0001-0002 
0003-0004 
0005-0006 

0007 

0008 

0009 

000A 

000B 
000C 
000D 
000E 
000F 

0010 

0011 

0012 

0013 
0014-0015 

0016 
0017-0018 
0019-0021 
0022-0025 
0026-002A 
002B-002C 

002D-002E 
002F-0030 
0031-0032 
0033-0034 
0035-0036 
0037-0038 
0039-003A 
003B-003C 
003D-003E 
003F-0040 
0041-0042 
0043-0044 


Downloaded from www.Manualslib.com manuals search engine 


Jump for USR 

Vector for USR 

Float-fixed vector 

Fixed-float vector 

Search character 

Scan-quotes flag 

TAB column save 

0= LOAD, | = VERIFY 

Input buffer pointer/# subscript 
Default DIM flag 

Type: FF = string, 00 = numeric 
Type: 80 = integer, 00 = floating point 
DATA scan/ LIST quote/memory flag 
Subscript/ FNx flag 

0 = INPUT;$40 = GET;$98 = READ 
ATN sign/ Comparison eval flag 
Current I/O prompt flag 

Integer value 

Pointer: Temporary string stack 

Last temporary string vector 

Stack for temporary strings 

Utility pointer area 

Product area for multiplication 
Pointer: Start of BASIC 

Pointer: Start of Variables 

Pointer: Start of Arrays 

Pointer: End of Arrays 

Pointer: String storage (moving down) 
Utility string pointer 

Pointer: Limit of memory 

Current BASIC line number 

Previous BASIC line number 

Pointer: BASIC statement for CONT 
Current DATA line number 

Current DATA address 

Input vector 
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TABLE B-4: Memory Map (continued) 


Hex Decimal -—_ 


0045-0046 
0047-0048 
0049-004A 
004B-004C 
004D 
004E-0053 
0054-0056 
0057-0060 
0061 
0062-0065 
0066 
0067 
0068 
0069-006E 
006F 
0070 
0071-0072 
0073-008A 
007A-007B 
008B-008F 
0090 
0091 
0092 
0093 
0094 
0095 
0096 
0097 
0098 
0099 
009A 
009B 
009C 
009D 
009E 
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69-70 
71-72 
73-74 
75-76 
77 
78-83 
84-86 
87-96 
97 
98-101 
102 
103 
104 
105-110 
111 
112 
113-114 
115-138 
122-123 
139-143 
144 
145 
146 
147 
148 
149 
150 
151 
152 
153 
154 
155 
156 
137 
158 


Current variable name 
Current variable address 
Variable pointer for FOR-NEXT 


' Y-save; op-save; BASIC pointer save 


Comparison symbol accumulator 
Misc. numeric work area, pointers, etc. 
Jump vector for functions 

Misc. numeric work area 

Accum #1: Exponent 

Accum #1: Mantissa 

Accum #1: Sign 

Series evaluation constant pointer 
Accum #1: High-order (overflow) 
Accum #2: Exponent, etc. 
Sign.comparison, Acc #1 vs. #2 
Accum #1: Low-order (rounding) 
Cassette buffer length/series pointer 
CHRGET subroutine (get BASIC char) 
BASIC pointer (within subroutine) 
RND seed value 

Status word ST 

Keyswitch PIA: STOP and RVS flags 
Timing constant for tape 

Load = 0, Verify = 1 

Serial output: deferred char flag 
Serial deferred character 

Tape EOT received 

Register save 

How many open files 

Input device (normally 0) 

Output (CMD) device (normally 3) 
Tape character parity 

Byte-received flag 

Direct = $80/RUN = 0 output control 
Tape Pass | error log/char buffer 
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TABLE B-4: Memory Map (continued) 


009F 
00A0-00A2 
00A3 
00A4 
00A5 
00A6 
00A7 
00A8 


00A9 
0O0OAA 
0OAB 
00AC-00AD 
OOAE-00AF 
00B0-00B1 
00B2-00B3 
00B4 
00B5 
00B6 
00B7 
00B8 
00B9 
0OBA 
0OBB-00BC 
0OBD 
OOBE 
OOBF 
00CO 
00C1-00C2 
00C3-00C4 
00C5 
00C6 
00C7 
00C8 
00C9-00CA 
00CB 
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Hex Decimal 
Address Address 


159 
160-162 
163 
164 
165 

166 
167 
168 


169 
170 
171 
172-173 
174-175 
176-177 
178-179 
180 
18] 
182 
183 
184 
185 
186 
187-188 
189 
190 
191 
192 
193-194 
195-196 
197 
198 
199 
200 
201-202 
203 


Tape Pass 2 error log corrected 
Jiffy Clock (HML) 

Serial bit count/ EOI flag 
Cycle count 


~ Countdown, tape write/bit count 


Pointer: Tape buffer 
Tape Write ldr count/ Read pass/inbit 


Tape Write new byte/ Read error/inbit 
count 


Write start bit/ Read bit err/stbit 
Tape Scan;Cnt;Ld;End/ byte assy 


Write lead length/ Rd checksum/ parity 


Pointer: Tape buffer, scrolling 
Tape end addresses/ End of progra 
Tape timing constants 

Pointer: Start of tape buffer 

Tape timer (1 = enable); bit count 
Tape EOT/RS-232 next bit to send 
Read character error/ outbyte buffer 
# characters in file name 

Current logical file 

Current secondary address 

Current device 

Pointer: To file name 

Write shift word/ Read input char 
# blocks remaining to Write/ Read 
Serial word buffer 

Tape motor interlock 

I/O start addresses 

KERNAL setup pointer 

Current key pressed 

# chars in keyboard buffer 

Screen reverse flag 

Pointer: End-of-line for input 

Input cursor log (row, column) 
Which key: 64 if no key 
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TABLE B-4: Memory Map (continued) 


Hex Decimal ae 


00CC 
00CD 
00OCE 
00CF 
00D0 
00D1-00D2 
00D3 
00D4 
00D5 
00D6 
00D7 
00D8 
00D9-00F0 
OOF! 
00F2 
00F3-00F4 
00F5-00F6 
00F7-00F8 
00F9-00FA 
00FB-00FE 
OOFF 
0100-010A 
0100-013E 
0100-01FF 
0200-0258 
0259-0262 
0263-026C 
026D-0276 
0277-0280 
0281-0282 
0283-0284 
0285 
0286 
0287 
0288 
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204 
205 
206 
207 
208 
209-210 
211 
212 
213 
214 
215 
216 
217-240 
241 
242 
243-244 
245-246 
247-248 
249-250 
251-254 
255 
256-266 
256-318 
256-511 
512-600 
601-610 
611-620 
621-630 
631-640 
641-642 
643-644 
645 
646 
647 
648 


Cursor enable (0 = flash cursor) 
Cursor timing countdown 
Character under cursor 

Cursor in blink phase 

Input from screen/ from keyboard 
Pointer to screen line 

Position of cursor on above line 
0 = direct cursor, else programmed 
Current screen line length 

Row where cursor lives 

Last inkey/checksum/ buffer 

# of INSERTs outstanding 
Screen line link table 

Dummy screen link 

Screen row marker 

Screen color pointer 

Keyboard pointer 

RS-232 Rev pointer 

RS-232 Tx pointer 


Operating system free zero page space 


BASIC storage 

Floating to ASCII work area 
Tape error log 

Processor stack area 

BASIC input buffer 

Logical file table 

Device # table 

Secondary Address table 
Keyboard buffer 

Start of memory of op system 
Top of memory for op system 
Serial bus timeout flag 
Current color code 

Color under cursor 

Screen memory page 
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TABLE B-4: Memory Map (continued) 


Hex Decimal — 
t 


0289 
028A 
028B 
028C 
028D 
028E 
028 F-0290 
0291 


0292 


0293 
0294 
0295-0296 
0297 
0298 
0299-029A 
029B 
029C 
029D 
029E 
029F-02A0 
02A1-02FF 
0300-0301 
0302-0303 
0304-0305 
0306-0307 
0308-0309 
030A-030B 
030C 
030D 
030E 
030F 
0314-0315 
0316-0317 
0318-0319 
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649 
650 
651 
652 
653 
654 
655-656 
657 


658 


659 
660 
661-662 
663 
664 
665-666 
667 
668 
669 
670 
671-672 
673-767 
768-769 
770-771 
772-773 
774-775 
716-777 
778-779 
780 
781 
782 
783 
788-789 
790-791 
792-793 


Maximum size of keyboard buffer 
Key repeat (128 = repeat all keys) 
Repeat speed counter 

Repeat delay counter 

Keyboard Shift/ Control flag 

Last keyboard shift pattern 
Pointer: Decode logic 


Shift mode switch (0 = enabled, 
128 = locked) 


Auto scroll down flag (0 = on, 
< > 0= off) 

RS-232 control register 

RS-232 command register 

Nonstandard (Bit time/ 2-100) 

RS-232 status register 

Number of bits to send 

Baud rate (full) bit time 

RS-232 receive pointer 

RS-232 input pointer 

RS-232 transmit pointer 

RS-232 output pointer 

Holds IRQ during tape operations 

Program indirects 

Error message link 

BASIC warm start link 

Crunch BASIC tokens link 

Print tokens link 

Start new BASIC code link 

Get arithmetic element link 

Storage for 6502 .A register 

Storage for 6502 .X register 

Storage for 6502 .Y register 

Storage for 6502 .P register 

Hardware (IRQ) interrupt vector 

Break interrupt vector 

NMI interrupt vector 


(EABF) 
(FED2) 
(FEAD) 
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TABLE B-4: Memory Map (continued) 


Hex Decimal _ 


031A-031B 
031C-031D 
031E-031F 
0320-0321 
0322-0323 
0324-0325 
0326-0327 
0328-0329 
032A-032B 
032C-032D 
032E-032F 
0330-0331 
0332-0333 
003C-03FB 
0400-OF FF 
1000-1DFF 
1E00-1F FF 
2000-3F FF 
4000-SFFF 
6000-7FFF 
8000-8FFF 
8000-83FF 
8400-87FF 
8800-8BFF 
8C00-8FFF 
9000 


9001 
9002 


9003 


9004 
9005 
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794-795 
796-797 
798-799 
800-801 
802-803 
804-805 
806-807 
808-809 
810-811 
812-813 
814-815 
816-817 
818-819 
828-1019 
1024-4095 
4096-7679 
7680-8191 
8192-16383 
16384-24575 
24576-32767 
32768-36863 
32768-33791 
33792-33815 
33816-35839 
35840-36863 
36864 


36864 
36866 


36867 


36868 
36869 


OPEN vector 

CLOSE vector 

Set-input vector 

Set-output vector 

Restore I/O vector 

INPUT vector 

Output vector 

Test-STOP vector 

GET vector 

Abort I/O vector 

User vector 

Link to load RAM 

Link to save RAM 

Cassette buffer 

3K expansion RAM area 

User BASIC area 

Screen memory 

8K expansion RAM/ROM block | 
8K expansion RAM/ROM block 2 
8K expansion RAM/ ROM block 3 
4K character generator ROM 
Upper case and graphics 

Reversed upper case and graphics 
Upper and lower case 

Reversed upper and lower case 
Bits 0-6 horizontal centering 

Bit 7 sets interlace scan 

Vertical centering 

Bits 0-6 set # of columns 

Bit 7 is part of video matrix address 
Bits 1-6 set # of rows 

Bit 0 sets 8 X 8 or 16 X 8 chars 

TV raster beam line 


Bits 0-3 start of character memory 
(default = 0) 


Bits 4-7 rest of video address 


(F40A) 
(F34A) 
(F2C7) 
(F309) 
(F3F3) 
(F20E) 
(F27A) 
(F770) 
(FIF5) 
(F3EF) 
(FED2) 
(F549) 
(F685) 
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TABLE B-4: Memory Map (continued) 


Hex Decimal _ 


Horizontal position of light pen 

Vertical position of light pen 

Digitized value of paddle X 

Digitized value of paddle Y 

Frequency for oscillator 1 (low) 
(on: 128-255) 

Frequency for oscillator 2 (medium) 
(on: 128-255) 

Frequency for oscillator 3 (high) 
(on: 128-255) 

Frequency of noise source 

Bits 0-3 set volume of all sound 

Bits 4-7 are auxiliary color information 


Screen and border color register 
- Bits 4-7 select background color 
- Bits 0-2 select border color 
- Bit 3 selects inverted or normal mode 


Port B output register 

Port A output register 

Data direction register B 
Data direction register A 
Timer | low byte 

Timer | high byte and counter 
Timer | low byte 

Timer | high byte 

Timer 2 low byte 

Timer 2 high byte 

Shift register 

Auxiliary control register 
Peripheral control register 
Interrupt flag register 
Interrupt enable register 

Port A (Sense cassette switch) 


Port B output register 
- Keyboard column scan 

- (PB3) Bit 3 = cassette write line 
- (PB7) Bit 7 = Joy 3 
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TABLE B-4: Memory Map (continued) 


Hex Decimal —_ 


912D 

912E 

912F 
9400-95FF 


9600-97 FF 
9800-9BFF 
9C00-8FFF 
A000-BFFF 
C000-DFFF 
E000-FFFF 


37165 

37166 

37167 
37888-38399 


38400-3891 1 
38912-39935 
39936-40959 
40960-49151 
49152-57343 
57344-65535 
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Port A output register keyboard row scan 
Data direction register B 

Data direction register A 

Timer 1, low-byte latch 

Timer 1, high-byte latch 

Timer 1, low-byte counter 


Timer 1, high-byte counter (timer | is used 
for the 60 time/ second interrupt) 


Timer 2, low-byte latch 
Timer 2, high-byte latch 
Shift register 

Auxiliary control register 


Peripheral control register 
- CAI Cassette read line (Bit 0) 
- CA2 Serial clock out (Bits 1-3) 
- CBI Serial SRQ IN (Bit 4) 
- CB2 Serial data out (Bits 5-7) 


Interrupt flag register 
Interrupt enable register 
Port A output register 


Location of COLOR RAM with additional 
RAM at blk 1 


Normal location of COLOR RAM 
I/O block 2 

I/O block 3 

8K decoded block for expansion ROM 
8K BASIC ROM 

8K KERNAL ROM 
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TABLE B-2: VIC 20 Memory Allocation 


Memory Location _ Memory Location 
(Decimal) Description (Hexadecimal) 


3FF 
400 


FFF 
1000 


IDFF 
1E00 


1FF9 
2000 


3FFF 
4000 


SFFF 
6000 


7FFF 
8000 


8FFF 
9000 


900F 
9110 


912 
9400 


95FF 
9600 


97FF 
A000 


BFFF 
C000 


DFFF 
E000 


FFFF 


*If an 8K or larger memory expander is used, the screen memory moves from decimal 7680 
(hex 1 E00) to decimal 4096 (hex 1000). This allows for continuous user memory beginning 
after the end of the screen memory. Color memory also moves when the memory is reconfig- 
ured in this way. It moves from decimal 38400 (hex 9600) to decimal 37888 (hex 9400). 
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Ifyou are using the map to PEEK at or POKE into a memory location, 
use the decimal value. Machine code or assembly language programs 
should access the hex value. 

In some cases two or more memory locations are indicated on the table. 
When two locations are indicated, they are to be taken as a single two-byte 
address. The VIC 20 stores such numbers in low-byte, high-byte order. 

To better understand this, consider the first two-byte address. 


Hex Decimal 
Address Address Description 


0001-0002 1-2 Vector for USR 


If the USR program began at memory location 1234 (hex), the 
numbers would be stored as follows: 


Address Stored Value 
0001 34 (low byte) 
0002 12 (high byte) 


NOTE: All values stored in pointers like the one above are hexadec- 
imal. For more information on hexadecimal-decimal conversion, see 
Appendix D. 


6560 VIC Display Chip Functions 


The VIC’s 6560 video display chip can be accessed by manipulating the 
values of memory locations 36864-36879 (decimal). The actual function of 
each memory location (control register) is indicated in Table B-3. In some 
cases the control registers are broken up into smaller control units (bits). In 
these instances the functions are shown by a separation between numbered 
blocks. 

Each control register is a single byte in memory. To change single bits 
within the bytes you will need to change the decimal value in such a way that 
the single binary bit you want to access changes. 

Try the following example. Memory register 36879 changes the border 
color and the field color. It also controls whether the characters are dis- 
played as reversed or non-reversed images. In the table you can see that the 
byte is broken up into three sections. These sections contain the numbers 20, 
21, and 22. 
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TABLE B-3: 6560 VIC Chip Functions by Memory Location 


4tatatatatas ta 
Ls | 
i” 


12 


Interlaced video (1 = interlaced; 0 = noninterlaced). 


Horizontal position of screen display area. On power-up this location contains 5. To move 
the display area left, enter a lower value. Entering a higher value moves it to the right. 


Vertical position of screen display area. On power-up this location contains 25. Increasing 
this number lowers the screen, and lowering this number raises the screen. 


Screen width control. This location sets the number of columns the VIC will display. If it 
is 22 (which it normally is), the VIC will display 22 characters in each line. Reducing this 
number will reduce the number of characters in a line. Any number higher than 26 will 
result in 27 columns (the maximum) being displayed. 


Screen height control. This location allows you to change the number of rows displayed. 
The VIC can display from 0 to 23 rows. 
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TABLE B-3: VIC Chip Functions by Memory Location (continued) 
6 This bit controls the size of the character matrix. If it is 0, the matrix will be normal 
(8 X 8). If it is 1, the characters will be 8 wide by 16 tall. 
Raster value. The light pen is adjusted using this number. 


Screen memory pointer. This location determines the section of memory the VIC chip will 
look at for its display information. 


Character set location. Changing the value in this location will point the VIC to another 
section of memory for its characters. This may be used to develop a custom character set. 


Horizontal position of light pen is stored in this location. 

Vertical position of light pen is stored in this location. 

X-Pot. Digitized value of variable resistance game controller is stored here. 
Y-Pot. Digitized value of variable resistance game controller is stored here. 
Lowest sound frequency register. The larger the number, the higher the frequency. 


Middle sound frequency register. The larger the number, the higher the frequency. 


Highest sound frequency register. The larger the number, the higher the frequency. 


White noise generator. The higher the number, the higher the frequency of the sound. 
Volume control. Ranges from 0 (off) to 15 (maximum volume). 

Auxiliary color register. 

Screen color register. 

Reverse video switch (1 = normal; 0 = reverse). 


Border color. 


There are four bits in the “nibble” that make up the first (high-order) 
bits of memory location 36879. That means that the screen can be set to any 
of 15 different colors. To change the four screen color bits without affecting 
the rest of the byte you will need to determine what “decimal values” 
(because the BASIC interpreter only understands decimal) will affect the 
four high-order bits and not the low-order bits. 

You can think of a byteas being made up of single bits that each havea 
particular decimal value. From right to left these are 


128 64 32 16 8 4 2 1 
Therefore, incrementing the number in location 36879 by 15 (8+412+1) 
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will increment the value of the four high-order bits by 1. Try the following 
program: 


14 REM #SCREEN COLOR* 

28 S=3é879 

RO AnZ=PEEK (36879) 71641 

4@ PRINT" CITHERE ARE 16 POSSIBLE” 

5a PRINT"SCREEN COLORS” 

6@ PRINT" THE SCREEN IS NOU" 

7@ PRINT"COLOR "5A 

Q@ PRINT"TO CHANGE TO A HIGHER" 

96 PRINT"NUMBER (COLOR), HIT +" 

146 PRINT" TO CHANGE TO A LOWER" 

114 PRINT" HLIMBER <COLORS, HiT -" 

126 GET VS: IF Yg="" THEN i126 

i3@ IF Ve = "+" THEN 15¢@ 

135 IF Vf <> "=" THEN 126 

i4@ iF PEEK ¢368795 > 11 THEN POQKE 36879, (PEEKS 36879) -16 
145 GOTO i¢ 

15@ IF PEEK (36879) < 239 THEN POKE 36979. (PEEK( 36879) 5+16 
14@ GOTO 16 


To toggle a single bit such as the REVERSE VIDEO switch, use the AND 
and OR functions. For example, 


To turn on bit 8 of 36879 enter POKE 36879, PEEK(36879) OR 8. 
To turn it off enter POKE 36879, PEEK(36879) AND NOT 8. 
Kernal Memory Locations 


Kernals are machine-callable routines that are available either from 
BASIC using the USR or SYS instructions or from your own machine 
language programs. Table B-4 lists the names and memory locations of the 
KERNAL programs available in the VIC 20. 
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TABLE B-4: Kernal Memory Locations 


Address 


He [Pn 


Input byte from serial port 

Open channel for input 

Open channel for output 

Input character from channel 

Output character to channel 

Output byte to serial port 

Close all channels and files 

Close a specified logical file 

Close input and output channels 

Get character from keyboard queue 

(keyboard buffer) 
IOBASE Return base address of I/O devices 
LISTEN Command devices on the serial bus to 
LISTEN 

Load RAM from a device 

Read/set the bottom of memory 

Read/set the top of memory 

Open a logical file 

Read/set X,Y cursor position 

Read real time clock 

Read I/O status word 

Restore default I/O vectors 

Save RAM to device 

Scan keyboard 

Return X,Y organization of screen 

Send secondary address after LISTEN 

Set logical, first, and second addresses 

Control KERNAL messages 

Set filename 

Set real time clock 

Set timeout on serial bus 

Scan stop key 

Command serial bus device to TALK 

Send secondary address after TALK 

Increment real time clock 

Command serial bus to UNLISTEN 

Command serial bus to UNTALK 
VECTOR Read/set vectored I/O 
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VIC I/O Pinouts 


This section contains the pinouts of all the I/O connectors on the VIC 
20. Using this information you can design your own interfaces for devices 
that do not hook up directly to the VIC. 


JOYO 

JOY! 

JOY2 

JOY3 

POT Y 

LIGHT PEN 

+5 V (10 mA max) 
GND 

POT X 


] 
2 
3 
4 
5 
6 
7 
8 
9 


FIGURE C-4. Game port pinout 


311 
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12 3 4 5 6 7 8 9 10 11 12 13 14 15 16 17 18 19 20 21 22 


ABCDEFHJK LMNPRST 


12 


A N 
B P 
C R 
D S 
E T 
F U 
H V 
J Ww 
K X 
L v 
M Z 


FIGURE C-2. Expansion port pinout 
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VIDEO LOW 


VIDEO HIGH 


FIGURE C-3. Video port pinout 


SERIAL SRQ IN 

GND 

SERIAL ATN IN/OUT 
SERIAL CLK IN/OUT 


SERIAL DATA IN/OUT 
N/C 


FiGURE C-4, Serial I/O port pinout 
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LIGHT PEN 
CASSETTE SWITCH > 


SERIAL ATN IN 
+9 V (100 mA max) 


ZeZrrAurtnimoawp 


Figure C-5. User port pinout 
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GND 

+5V 

CASSETTE MOTOR 
CASSETTE READ 
CASSETTE WRITE 
CASSETTE SWITCH 


FiGURE C-6. Cassette interface pinout 
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, APPENDIX 
Conversion Tables 
Irigonometric Functions 


The tables in this section are intended as an aid to mathematical 
programming. 


Hexadecimal-Decimal Integer Conversion 


Table D-1 provides for direct conversions between hexadecimal inte- 
gers in the range 0-FFF and decimal integers in the range 0-4095. For 
conversion of larger.integers, the table values may be added to the figures in 
Table D-2. 
Hexadecimal fractions may be converted to decimal fractions as 
follows: 


1. Express the hexadecimal fraction as an integer times 16", where 7 is 
the number of significant hexadecimal places to the right of the 
hexadecimal point. 


0. CA9BF3,, = CA9 BF3,, X 16°° 


2. Find the decimal equivalent of the hexadecimal integer 
CA9 BF3 = 13 278 195, 


3. Multiply the decimal equivalent by 16° 


13 278 195 
x 596 046 448 x 10'° 
0.791 442 096 


10 


3417 
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TABLE D-4. Hexadecimal-Decimal Integer Conversion 
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TABLE D-4. Hexadecimal-Decimal Integer Conversion (continued) 
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TABLE D-4. Hexadecimal-Decimal Integer Conversion (continued) 
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TABLE D-4. Hexadecimal-Decimal Integer Conversion (continued) 
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TABLE D-4, Hexadecimal-Decimal Integer Conversion (continued) 
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TABLE D-4. Hexadecimal-Decimal Integer Conversion (continued) 


TABLE D-2. Conversion Values 


Hexadecimal Decimal Hexadecimal Decimal Hexadecimal Decimal Hexadecimal Decimal 


at 000 40% 11 000 69 632 30 000 196 608 400 000 4 194 304 
02 000 8 192 12 000 73 728 262 144 500 000 5 242 880 
03 000 12 288 13 000 77 824 327 680 600 000 6 291 456 
04 000 16 384 14 000 81 920 393 216 700 000 7 340 032 
05 000 20 480 15 000 86 016 458 752 800 000 8 388 608 
06 000 24 576 16 000 90 112 524 288 900 000 9 437 184 
07 000 28 672 17 000 94 208 589 824 A00 000 10 485 760 
08 000 32 768 18 000 98 304 655 360 BOO 000 11 534 336 
09 000 36 864 19 000 102 400 720 896 C00 000 12 582 912 
0A 000 40 960 1A 000 106 496 786 432 000 000 13 631 488 
0B 000 45 056 18 000 110 592 851 968 E00 000 14 680 064 
oC 000 49 152 1C 000 114 688 917 504 FOO 000 15 728 640 
00 000 53 248 1D 000 118 784 983 040 1 000 000 16 777 216 
OE 000 57 344 1E 000 122 880 1 048 576 2 000 000 33 554 432 
OF 000 61 440 IF 000 126 976 2 097 152 

10 000 65 536 20 000 131 072 300 000 3 145 728 


Decimal fractions may be converted to hexadecimal fractions by 
successively multiplying the decimal fraction by 16,,. After each multiplica- 
tion, the integer portion is removed to form a hexadecimal fraction by 
building to the right of the hexadecimal point. However, since decimal 
arithmetic is used in this conversion, the integer portion of each product 
must be converted to hexadecimal numbers. 


Example: 
Convert 0.895, to its hexadecimal equivalent 
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5.120 

16 

1.920 

| 16 


0.ESIE, ; 14.720 


Functions that are not intrinsic to VIC BASIC may be calculated as in 
Table D-3. 


TABLE D-3. Deriving Mathematical Functions 


Secant SEC(X) = 1/COS(X) 
Cosecant CSC(X) = 1/SIN(X) 
Cotangent COT(X) = 1/TAN(X) 


Inverse sine 
Inverse cosine 


ARCSIN(X) = ATN(X/SQR(— X*X + 1)) 
ARCCOS(X) = —ATN(X/SQR 
(—X*X + 1) + 7/2 
ARCSEC(X) = ATN(X/SQR(X*X — 1)) 
ARCCSC(X) = ATN(X/SQR(X*X — 1)) 
+ (SGN(X) — 1)* 1/2 
ARCOT(X) = ATN(X) + 1/2 
SINE(X) = (EXP(X) — EXP(— X))/2 
COSH(X) = (EXP(X) + EXP( — X))/2 
TANH(X) = EXP( — X)/EXP(X) + EXP 
(—X))*2 +1 
SECH(X) = 2/(EXP(X) + EXP( — X) 
CSCH(X) = 2/(EXP(X) — EXP( — X)) 
COTH(X) = EXP(— X)/(EXP(X) 
— EXP(— X)*2+ 1 
ARCSINH(X) = LOG(X + SQR(X*X + 1) 
ARCCOSH(X) = LOG(X + SQR(X*X — 1) 
ARCTANH(X) = LOG((1 + X)/(1 — X))/2 
ARCSECH(X) = LOG((SQR 
(— X*X + 1) + 1/X) 
ARCCSCH(X) = LOG((SGN(X)*SQR 
(X*X + 1)/X 
ARCCOTH(X) = LOG((X + 1)/(X — 1))/2 


Inverse secant 
Inverse cosecant 


Inverse cotangent 
Hyperbolic sine 
Hyperbolic cosine 
Hyperbolic tangent 


Hyperbolic secant 
Hyperbolic cosecant 
Hyperbolic cotangent 


Inverse hyperbolic sine 
Inverse hyperbolic cosine 

Inverse hyperbolic tangent 
Inverse hyperbolic secant 


Inverse hyperbolic cosecant 


Inverse hyperbolic cotangent 
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Sound and Display 
Characters and Codes 


One of the more powerful functions of the VIC 20 is its display and 
sound generation capability. The tables in this appendix cover all of the VIC 
character codes, screen POKE values, sound register equivalents, and color 
values. 

Table E-1 covers all of the characters and functions that are displayed 
using the CHR$ instruction. In many instances, the use of the CHR$ function 
is optional; however, some functions, such as RETURN and RUN/STOP, 
are not programmable with the PRINT function. To program using these 
functions you will need to use the CHR$ function and the codes in this table. 

The codes used in the CHR$ instruction are not the same as those used 
in the POKE-to-screen commands. The codes shown in Table E-2 are listed 
in the same order as the characters in memory. Notice that all of the control 
characters are omitted from this list. This is because there is no display code 
for them; control codes use the codes of standard reverse characters (for 
example, reverse-heart for CLR/ HOME). 

Like the table for character POKEs, the color table in Table E-3 
indicates the number associated with each screen and border color on the 
VIC. These values are POKEd into location 36879 to produce display color 
changes. The circled numbers produce screens with fields and borders of the 
same color. 


325 
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The VIC 20 has four tone registers: low, medium, and high tones, and a 
white noise generator. Location 36878 sets the volume level for all four 
registers. Location 36877 is the noise register, and locations 36874 through 
36876 are the tone registers. POKE values and the notes they produce are 
shown in Table E-4. 

The VIC can use certain keyword abbreviations. These can save time 
when entering lines of code. In most cases, they consist of the first letter of 
the command and the shifted second letter of the command. In some cases 
you need to enter the first two letters of the command and the shifted third 
letter. See Table E-5 for each command and note that the display does not 
contain the second (or third) character, but a graphic character instead. 
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TABLE E-4. VIC Character Codes 


Prints CHRS Prints CHRS Prints CHR$ Prints CHRS 


CLR 
HOME 


38 58 


19 


39 59 


INST 


DEL 7 


40 60 


2 


41 61 


22 


42 62 


23 


43 63 


24 44 64 


25 45 65 


26 46 66 


27 47 67 


28 48 68 


69 


29 49 


30 70 


50 


71 


RETURN 31 5] 


SWITCH 32 72 
TO 
LOWER- 33 
CASE 


52 


al 


ZHAGEDOMMS Deh M IAL 


53 73 


34 54 74 


35 55 75 


56 76 


36 


57 77 


| 
|= 
c4 
Ed 
La | 
ios 
[a | 
[=] 
Ba 
=| 
Fe] 
| 
| 
(=3 
ia 
= 


37 
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TABLE E-4. VIC Character Codes (continued) 
CHRS Prints CHRS Prints CHRS Prints CHRS 


78 98 118 {4 138 


99 119 {6 139 


79 


80 f8 


SHIFT 
RETURN 


81 
82 
SWITCH 
83 
84 
85 
86 


87 


43\-Pites oh 


88 


89 


90 


91 


92 


93 


94 


95 


96 


97 


Mi 
Ce] 
iF" 
ced 
FE) 
E=j 
_T| 
tat | 
Ll 
Fad 
| 
E=q 
(C| 
a 
| I] 
TT 
+ 
co 


OLUONADS AREA 


Downloaded from www.Manualslib.com manuals search engine 


Appendix E: Sound and Display/Characters and Codes 329 


TABLE E-4. VIC Character Codes (continued) 


Prints CHRS Prints CHR$ Prints CHR$ 


155 175 215 


156 176 216 


157 177 217 


158 178 218 


179 219 
180 220 
181 221 
222 


223 
224 
225 
226 
227 
228 
229: 


230 


231 
232 
233 


234 


— 
= 
= 
— 
TI 
Tl 
BI 
yy 
=a 
= 
= 
a 
= 
= 
Cl 
_ 
_ 
im 
- 
Sc] 


eA SU te A AR 
aE LOLI aH eso 


Ate ee ME LOLI 
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TABLE E-4. VIC Character Codes (continued) 


Prints CHRS Prints 


TABLE E-2. Screen Codes 


Set 1 Set2 POKE 


HIG AME Ot Die 
mT) HO 
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CHRS$ 


241 


242 


243 


244 


245 


Set1 Set2 


J) [3] 
KI ikK 
L_} LL 
P= (ng 
A 
Celit=] 
Pie 
Cedi) 
FE) tr 
S) (= 


Prints 


POKE 


10 


_T| 
ia | 
rad 
hd 
rq 
(C| 
ES 
mi 


CHRS$ Prints 


246 


247 


248 


249 


250 


Set1 Set 2 


e| 
Las 
=] 


CHRS$ 


251 


POKE 
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TABLE E-2. Screen Codes (continued) 


Set! Set2 POKE Set 1 Set2 POKE Set 1 Set2 POKE 


ATUL eM A AOS Go 
OX FLU ONZIOAeEEA 
ANE SCHUM e TOSS AHL aT 


MAA Cito D 


PAG Ne Lo Ha esl SPINA) SEL it 
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| TABLE E-2. Screen Codes (continued) 


Set 1 Set2 POKE Set 1 Set2 POKE Set 1 Set2 POKE 


N 


\O 
—_ 


\O 
No 


‘ 


\o 
Ww 


i 
all 


CH 
| 
LL 
cid 
"a 
|_| 
_i 
— 
_ 
__ 
[| 
ss 


ala iA aint] Melle) Wir | SI 
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TABLE E-3. VIC Character Codes 


BLK WHT RED CYAN PUR GRN_ BLU _ YEL 


Black 
White 
Red 

Cyan 
Purple 
Green 
Blue 
Yellow 
Orange 
Lt. Orange 
Pink 

Lt. Cyan 
Lt. Purple 
Lt Green 
Lt. Blue 
Lt. Yellow 


TABLE E-4. Sound Tone Values 


Approximate Approximate Approximate Approximate 
Note Value Note Value Note Value Note Value 


POKE 36878, X Oto 15 Sets volume 
POKE 36874, X 128 to 255 Plays tone 
POKE 36875, X 128 to 255 Plays tone 
POKE 36876, X 128 to 255 Plays tone 
POKE 36877, X 128 to 255 Plays “noise” 


Downloaded from www.Manualslib.com manuals search engine 


334 The VIC 20 User Guide 


TABLE E-§. Keyword Abbreviations 


Characters Characters 
That Appear That Appear 
Command Abbreviation OnScreen | Command Abbreviation On Screen 


SHIFT PRINT# F SHIFT 
SHIFT READ Ro SHIFT 
SHIFT RESTORE RE SHIFT 
SHIFT RETURN FE SHIFT 
SHIFT SHIFT 
SHIFT SHIFT 
SHIFT SHIFT 


— # ™m QD 


t 


Yoo ro z= DB 


—{ 


am 


SHIFT 
SHIFT 
SHIFT 
SHIFT 
SHIFT 
SHIFT 
SHIFT 
SHIFT 
SHIFT 
SHIFT 
SHIFT 
SHIFT 
SHIFT 


IVBDBOEO CANAAN AD 


SHIFT 
SHIFT 
SHIFT 
SHIFT 
SHIFT 
SHIFT 
SHIFT 
SHIFT 
SHIFT 
SHIFT 
SHIFT 
SHIFT 
SHIFT 


N 
) 
0 
L. 
M 
0 
r= 
E 
I 
M 
0 
c 
a) 
MH 
E 
I 
0 
a 
=) 
Q 


SHIFT 
SHIFT 
SHIFT 
SHIFT 
SHIFT 
SHIFT 


SHIFT 


+ 


SHIFT 
SHIFT 
SHIFT 
SHIFT 
SHIFT 


CAMAADVsSIAC NM 
DANDAMNMHTDVXLCAnHnwvDIMrCc4ai MD 


MAN MN DNIVOMS=S TH OOTHeaaDadaimss 


YQ Ue Oz 
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Error Messages 


VIC 20 error messages may be displayed in response to almost anything 
you key in at the keyboard. They may also appear when your program is 
running. This appendix lists and explains error messages issued by the VIC 
BASIC interpreter and by the operating system. 

Whenever the VIC BASIC interpreter detects an error, it displays a 
diagnostic message, headed by a question mark, in the general form 


%message ERROR IN LINE number 


where message is the type of error (listed alphabetically below) and number is 
the line number in the program where the error occurred (not present in 
immediate mode). Following any error message, VIC BASIC returns to 
immediate mode and displays the READY prompt. 

Here is an alphabetical list of error messages accompanied by a two-part 
description that explains the cause of the error and possible ways of correct- 
ing it. 

BAD SUBSCRIPT 

An attempt was made to reference an array element that is outside the 

dimensions of the array. This can result from specifying the wrong 

number of dimensions (different from the DIM statement), using a 

subscript larger than specified in the DIM statement, or using a sub- 

script larger than 10 for a nondimensioned array. 
Correct the array element number to remain within the original 
dimensions or change the array size to allow more elements. 
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CAN’T CONTINUE 

A CONT command was issued, but program execution cannot be 
resumed because the program has been altered, added to, or cleared in 
immediate mode, or because execution was stopped by an error. Pro- 
gram execution cannot be continued past an error message. 

Correct the error. The most prudent course is to type RUN and 
start over. However, you can attempt to reenter the program at the 
point of interruption by a directed GOTO. 


DEVICE NOT PRESENT 
No device on the bus was present to handshake an attention sequence. 
The status variable (ST) will have a value of 2, indicating a timeout. This 
message may occur for any I/O command. 
If the device identification is in error, correct the OPEN (or other) 
statement. If the statement is correct, especially if it has worked before, 


check the addressed device for malfunction, misconnection, or power 
off. 


DIVISION BY ZERO 
An attempt was made to perform a division operation with a divisor of 
zero. Dividing by zero is not allowed. 
Check the values of variables (or constants) in the indicated line 
number. Change the program so that the divisor can never be evaluated 
to zero, or add a check for zero before performing the division. 


FILE ALREADY EXISTS 
The name of the source file being copied with the COPY statement 
already exists on the destination diskette. 


FILE NOT FOUND : 
The filename given in the LOAD or OPEN statement was not found on 
the specified device. 
Check that you have the correct tape or diskette in the device. 
Check the filenames on the tape or diskette for a possible spelling error 
in the program statement. 


FILE NOT OPEN 


An attempt was made to access a file that was not opened via the OPEN 
statement. 
Open the file. 
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FILE OPEN | 
An attempt was made to open a file that has already been opened via a 
previous OPEN statement. 
Check the logical file number (first parameter in the OPEN state- 
ment) to be sure that a different number is used for each file. Insert a 
CLOSE statement if you want to reopen the same file for a different I/O 
operation. 


FORMULA TOO COMPLEX 
This is not a program error but indicates that a string expression in the 
program is too intricate for VIC BASIC to handle. 
Break the indicated expression into two or more parts and rerun the 
program. (This will also tend to improve program readability.) 


ILLEGAL DIRECT 
A command was given in immediate mode that is valid only in program 
mode. The following are invalid in immediate mode: DATA, DEF FN, 
GET, GET#, INPUT, and INPUT#H. 
Enter the desired operation as a (short) program and run it. 


ILLEGAL QUANTITY 
A function has passed one or more parameters that are out of range. 
This often occurs in POKE statements that use input variables greater 
than 255 or less than 0. | 
This message also occurs if the USR function 1s referenced before 
storing the subroutine address at memory locations | and 2. 


LOAD 
Anunacceptable number of tape errors (more than 31) were accumulated 
on a tape load. They were not cleared on reading the redundant block. 
This message is issued in connection with the LOAD command. 


NEXT WITHOUT FOR 
A NEXT statement is encountered that is not tied to a preceding FOR 
statement. Either there is no FOR statement or the variable in the 
NEXT statement is not in a corresponding FOR statement. 
The FOR part of a FOR-NEXT loop must be inserted or the 
offending NEXT statement deleted. Be sure that the index variables are 
the same at both ends of the loop. 
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NOT INPUT FILE 
An attempt was made to read from a tape file that has been opened for 
output only. | 
Check the READ# and OPEN statement parameters for correct- 
ness. Reading requires a zero as the third parameter of the OPEN 
statement. (This is the default option.) 


NOT OUTPUT FILE 
An attempt was made to write to a tape file that has been opened for 
input only. 
Check the PRINT# and OPEN statement parameters for correct- 
ness. Writing toa file requires a 1 (or a2 if you want an EOT at the end 
of the file) as the third parameter in the OPEN statement. 


OUT OF DATA 7 
A READ statement is executed but all of the DATA statements in the 
program have already been read. For each variable in a READ state- 
1 ment, there must be a corresponding DATA element. 

Add more DATA elements or restrict the number of READs to the 
current number of DATA elements. Insert a RESTORE statement to | 
reread the existing data. Or add a flag at the end of the last DATA 
statement (any value not used as a DATA element may be used for the 
flag value) and stop READing when the flag has been read. 


OUT OF MEMORY 
The user program area of memory has been filled and a request is given 
to add a line to the program. This message may also be caused by 
multiple FOR-NEXT or GOSUB nestings that fill up the stack; this is 
the case if ?FRE(0) shows a considerable program area storage left. 
Simplify the program. Pay particular attention to reducing array 
sizes. It may be necessary to restructure the program into overlays. 


OVERFLOW 
A calculation has resulted in a number outside the allowable range, 
meaning that the number is too big. The largest number allowed is 
1.70141183E+38. 
Check your calculations. It may be possible to eliminate this error 
just by changing the order in which the calculations are programmed. 
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REDIM’D ARRAY 
An array name appears in more than one DIM statement. This error 
also occurs if an array name is used (given a default size of 11) and later 
appears in a DIM statement. 

Place DIM statements near the beginning of the program. Check 
to see that each DIM statement is executed only once. DIM must not 
appear inside a FOR-NEXT loop or in a subroutine where either may 
be executed more than once. 


REDO FROM START 
This is a diagnostic message during an INPUT statement operation and 
is not a fatal error. It indicates that the wrong type of data (string for 
numeric or vice versa) was entered in response to an INPUT request. 
Reenter the correct type of data. INPUT will continue prompting 
until an acceptable response is entered. 


RETURN WITHOUT GOSUB 
A RETURN statement was encountered without a previous matching 
GOSUB statement being executed. 

Insert a GOSUB statement or delete the RETURN statement. The 
error may be caused by dropping into the subroutine code inadver- 
tently. In this case, correct the program flow. An END or STOP 
statement placed just ahead of the subroutine serves as a debugging aid. 


STRING TOO LONG 
An attempt was made by use of the concatenation operator (-) to create 
a string longer than 255 characters. 
Break the string into two or more shorter strings as part of the 
program operation. Use the LEN function to check string lengths before 
concatenating them. 


SYNTAX 

There is a syntax error in the line just entered (immediate mode) or 
scanned for execution (program mode). This is the most common error 
message. It is caused by such things as misspellings, incorrect punctua- 
tion, unmatched parentheses, and extraneous characters. 

Examine the line carefully and make corrections. Note that syntax 
errors in a program are diagnosed at run time, not at the time the lines 
are entered from the keyboard. You can eliminate many syntax error 
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messages by carefully scrutinizing newly entered program lines before 
running the program. 


TYPE MISMATCH 
An attempt was made to enter a string into a numeric variable or vice 
versa, Or an incorrect type was given as a function parameter. 
Change the offending item to the correct type. 


UNDEF’D FUNCTION 
Reference was made to a user-defined function that has not previously 
been defined by appearing ina DEF FN statement. The definition must 
precede the function reference. 
Define the function. Place DEF FN statements near the beginning 
of the program. 


UNDEF’D STATEMENT 
An attempt was made to branch to a nonexistent line number. 
Insert a statement with the necessary line number or branch to 
another line number. 


VERIFY ERROR 
The program in memory and the specified file do not compare. This 
message is issued in connection with the VERIFY command. 
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APPENDIX 


BASIC Statements 


This appendix explains the syntax of all the VIC 20 BASIC statements. 
They are presented in alphabetical order and include both internal functions 
and I/O commands. 


CLOSE 
The CLOSE statement closes a logical file. 


Format: 

CLOSE if 

The CLOSE statement closes logical file Jf. Every file should be closed 
after all file accesses have been completed. An open logical file may be closed 
only once. The particular operations performed in response to a CLOSE 
statement depend on the open file’s physical device and the type of access 
that occurred. 


Example: 
CLOSE 1 Close logical file 1 
CLOSE 14 Close logical file 14 
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CLR 


The CLR statement sets all numeric variables to zero and assigns null 
values to all string variables. All array space in memory is released. This is 
equivalent to turning the computer off, then turning it back on and 
reloading the program into memory. CLR closes all logical files that are 
currently open within the executing program. 


Format: 
CLR 


A program will continue to run following execution of a CLR 
statement if the statement’s execution does not adversely affect program 
logic. 


Example: 
188 CLR 


CMD 

The CMD statement sends all output that would have gone to the 
display to another specified unit. Output goes to that unit, instead of the 
display, until a PRINT# statement specifying the same logical file number 


that was opened is executed. At least one PRINT# statement must follow a 
CMD statement. 


Format: 
CMD If 


The CMD statement assigns a line printer output channel to logical file 
if. After execution of a CMD statement, PRINT and LIST both print data 
instead of displaying it. 


Example: 
The following sequence uses CMD to print program listings: 
OPEN 3.4 Open logical file 5 selecting the printer 
CMD 5 Direct subsequent output to the printer 
LIST Print the program listing 
PRINT#S Print a carriage return and deselect the printer 
CLOSE 5 Close logical file 5 
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CONT 


The CONT statement, typed at the keyboard in immediate mode, 
resumes program execution after a BREAK. 


Format: 

CONT 

A break is caused by execution of a STOP statement or an END 
statement that has additional statements following it. Depressing the STOP 
key while a program is running also causes a break. Program execution 
continues at the exact point where the break occurred. 

Pressing the RETURN key in response to an INPUT statement will also 


cause a break. Typing CONT after this break reexecutes the INPUT 
statement. 


Example: 
CONT 


DATA 


The DATA statement declares constants that are assigned to variables 
by READ statements. 


Format: 

DATA constant{ ,constant,constant,...,constant] 

DATA statements may be placed anywhere in a program. The DATA 
statement specifies either numeric or string constants. String constants are 
usually enclosed in double quotation marks; the quotes are not necessary 
unless the string contains graphic characters, blanks (spaces), commas, or 
colons. Blanks, commas, colons, and graphic characters are ignored unless 
the string is enclosed in quotes. A double quotation mark cannot be repre- 


sented ina DATA string; it must be specified using a CHR$(34) function. 
The DATA statement is valid in program mode only. 


Example: 
10 DATA NAME, "C.D." Defines two string variables 
38 DATA 1E6,~18. KZ Defines two numeric variables and one string variable 


Refer to the READ statement for a description of how DATA state- 
ment constants are used within a program. 
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The DEF function (DEF FN) allows special purpose functions to be 
defined and used within BASIC programs. 


Format: 
DEF FNnvar(arg)=expression 


Floating point variable nvar identifies the function, which is sub- 
sequently referenced using the name FNnvar(data). (If nvar has more than 
five letters, a syntax error is reported. A syntax error is also reported if nvar 
is a string or integer variable.) 

The function is specified by expression, which can be any arithmetic 
expression containing any combination of numeric constants, variables, or 
operators. The dummy variable name arg can (and usually does) appear in 
expression. 

arg is the only variable in expression that can be specified when 
FNnvar(data) is referenced. Any other variables in expression must be 
defined before FNnvar(data) is referenced for the first time. FNnvar(data) 
evaluates expression using data as the value for arg. 

The entire DEF FN statement must appear on a single 80-character 
line; however, a previously defined function can be included in expression, 
so user-defined functions of any complexity can be developed. 

The function name var can be reused and therefore redefined by 
another DEF FN statement appearing later in the same program. 

The DEF FN definition statement is illegal in immediate mode. How- 
ever, a user-defined function that has been defined by a DEF FN statement 
in the current stored program can be referenced in an immediate mode 
Statement. 


Example: 


10 DEF FNCCRO=rkRt2 Defines a function that calculates the circumference of 
a circle. It takes a single argument R, the radius of 
the circle, and returns a single numeric value, the 
circumference of the circle 


PFNCC 1) Prints 3.141159265 (the value of 7) 


So IF FNCCK)>6@ GOTO 156 Uses the value calculated by the user-defined function 
FNC as a branch condition. The current contents of 
variable X are used when calculating the user- 
defined function 
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DIM 
_ The Dimension statement DIM allocates space in memory for array 

variables. 
Format: 

DIM var(sub)[,var(sub),...,var(sub)] 

The DIM statement identifies arrays with one or more dimensions as 
follows: 

var(sub;) Single-dimensional array 

var(sub; sub;) Two-dimensional array 

var(sub; sub; sub;,) Multiple-dimensional array 


Arrays with more than 11 elements must be dimensioned in a DIM 
statement. Arrays with 11 elements or less (subscripts 0 through 10 for a 
one-dimensional array) may be used without being dimensioned by a DIM 
statement; for such arrays, 11 array spaces are automatically allocated in 
memory when the first array element is encountered in the program. An 
array with more than 11 elements must occur ina DIM statement before any 
other statement references an element of the array. 

If an array is dimensioned more than once, or if an array having more 
than 11 elements is not dimensioned, an error occurs and the program is 
aborted. A CLR statement allows a DIM statement to be reexecuted. 


Example: 


19 DIM ACS) Dimension a single-dimensional array 
of 3 elements 
45 DIM X$¢44,2) Dimension a two-dimensional array of 
88 elements 
1800 DIM MUCK, SRBD.NC12) Dimension a two-dimensional array of 
X times 3*B elements anda 
single-dimensional array of 12 
elements. X and B must have been 
assigned values before the DIM 
statement is executed 


The END statement terminates program execution and returns the 
computer to immediate mode. 


Format: 
END 
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The END statement can provide a program with one or more 
termination points at locations other than the physical end of the program. 
END statements can be used to terminate individual programs when more 
than one program is in memory at the same time. An END statement at the 
physical end of the program is optional. The END statement is used in 
program mode only. 


Example: 
208@1 END 


FOR-NEXT STEP 


All statements between the FOR statement and the NEXT statement 
are reexecuted the same number of times. 


Format: 


FOR nvar = start TO end STEP increment 
[statements in loop] 
NEXT[nvar] 


where 
nvar is the index of the loop. It holds the current loop count. nvar is often used 


by the statements within the loop. 


start is anumeric constant, variable, or expression that specifies the beginning 
value of the index. 


end is a numeric constant, variable, or expression that specifies the ending 
value of the index. The loop is completed when the index value is equal 
to the end value, or when the index value is incremented or decre- 
mented past the end value. 


increment if present, isa numeric constant, variable, or expression that specifies the 
amount by which the index variable is to be incremented with each 
pass. The step may be incremental (positive) or decremental (negative). 
If STEP is omitted, the increment defaults to 1. 
nvar may optionally be included in the NEXT statement. A single 
NEXT statement is permissible for nested loops that end at the same point. 
The NEXT statement then takes the form 


NEXT nvar ,nvar,... 


The FOR-NEXT loop will always be executed at least once, even if the 
beginning nvar value is beyond the end nvar value. If the NEXT statement is 
omitted and no subsequent NEXT statements are found, the loop is 
executed once. 
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The start, end, and increment values are read only once, on the first 
execution of the FOR statement. You cannot change these values inside the 
loop. You can change the value of nvar within the loop. This may be used to 
terminate a FOR-NEXT loop before the end value is reached: Set nvar to 
the end value and on the next pass the loop will terminate itself. Do not jump 
out of the FOR-NEXT loop with a GOTO. Do not start the loop outside a 
subroutine and terminate it inside the subroutine. 

FOR-NEXT loops may be nested. Each nested loop must have a 
different nvar variable name. Each nested loop must be wholly contained 
within the next outer loop; at most, the loops can end at the same point. 


GET 


The GET statement receives single characters as input from the 
keyboard. ; 


Format: 
GET var 


The GET statement can be executed in program mode only. When a 
GET statement is executed, var is assigned a 0 value if numeric, or a null 
value if a string. Any previous value of the variable is lost. Then GET fetches 
the next character from the keyboard buffer and assigns it to var. If the 
keyboard buffer is empty, var retains its 0 or null value. 

GET is used to handle one-character responses from the keyboard. 
GET accepts the RETURN key as input and passes the value (CHR$(13)) to 
var. 

If var is a numeric variable and no key has been pressed, 0 is returned. 
However, a 0 is also returned when 0 is entered at the keyboard. 

If var is a numeric variable and the character returned is not a digit 
(0-9),a 9SYNTAX ERROR message is generated and the program aborts. 

The GET statement may have more than one variable in its parameter 
list, but it is hard to use if it has multiple parameters. 


GET var,var,...,var 
Example: 

i9 GET C$ 

18 GET D 

10 GET ALB.C 
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GET# 


The GET External statement (GET#) receives single characters as input 
from an external storage device identified via a logical file number. 


Format: 
' GETH#If,var 

The GET# statement can only be used in program mode. GET# fetches 
a single character from an external device and assigns this character to 
variable var. The external device is identified by logical file number /f. This 
logical file must have been previously opened by an OPEN statement. 

GET# and GET statements handle variables and data input identically. 
For details see the GET statement description. 


Example: 
18 GET#4,CS:IF C$="" GOTO 16 Get a keyboard character. Reexecute 
if no character is present 
GOSUB 


The GOSUB statement branches program execution to a specified line 
and allows a return to the statement following GOSUB. The specified line is 
a subroutine entry point. 


Format: 
GOSUB In 


The GOSUB statement calls a subroutine. The subroutine’s entry point 
must occur on line /n. A subroutine’s entry point is the beginning of the 
subroutine in a programming sense; that is to say it is the line containing the 
statement (or statements) that are executed first. The entry point need not 
necessarily be the subroutine line with the smallest line number. 

Upon completing execution the subroutine branches back to the line 
following the GOSUB statement. The subroutine uses a RETURN state- 
ment in order to branch back in this fashion. 

A GOSUB statement may occur anywhere in a program; in conse- 
quence a subroutine may be called from anywhere in the program. 


Example: 


180 GOSUB 2000 Branch to subroutine at line 2000 
119 A=B#C 
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Subroutine branches back here 


2680 Subroutine entry point 


2098 RETURN Branch back to line 110 


GOTO 
The GOTO statement branches unconditionally to a specified line. 


Format: 
GOTO In 


Example: 
18 GOTO 188 


Executed in immediate mode, GOTO branches to the specified line in 
the stored program without clearing the current variable values. GOTO 
cannot reference immediate mode statements, since they do not have line 
numbers. 


IF-THEN | 


The IF-THEN statement provides conditional execution of statements 
based on a relational expression. 


Format: 
IF condition THEN statement{[:statement...] Conditionally execute statement(s) 


IF condition THEN line Conditionally branch 
GOTO 


If the specified condition is true, then the statement or statements 
following the THEN are executed. If the specified condition is false, control 
passes to the statement(s) on the next line and the statement or statements 
following the THEN are not executed. For a conditional branch, the branch 
line number is placed after the word THEN or after the word GOTO. The 
compound form THEN GOTO is also acceptable. 


IF A= 1 THEN 50 
IF A= | GOTO 50 Equivalent 
IF A= | THEN GOTO 50 
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If an unconditional branch is one of many statements following THEN, 
the branch must be the last statement on the line, and it must have “GOTO 
line” format. If the unconditional branch is not the last statement on the line, 
then statements following the unconditional branch can never be executed. 

The following statements cannot appear in an immediate mode IF- 
THEN statement: DATA, GET, GET#, INPUT, INPUT#, REM, RETURN, 
END, STOP, WAIT. 

If a line number is specified, or any statement containing a line number, 
there must be a corresponding statement with that line number in the 
current stored program. 

The CONT and DATA statements cannot appear in a program mode 
IF-THEN statement. If a FOR-NEXT loop follows the THEN, the loop 
must be completely contained on the IF-THEN line. Additional IF-THEN 
statements may appear following the THEN as long as they are completely 
contained on the original IF-THEN line. However, Boolean connectors are 
preferred to nested IF-THEN statements. For example, the two statements 
below are equivalent, but the second is preferred. 


1@ IF A$="X" THEN IF Be2 THEN IF COD THEN 50 
19 IF A$="X" AND Bez AND C>D THEN 5@ 


Example: 


400 IF X51 THEN A=1 
306 IF M+1 THEN AG=4.5 GOSUB 1900 


INITIALIZE 


You can use PRINT# to initialize a diskette before performing any 
operation on it. 
Format: 

PRINT#file,“[INITIALIZE][dr]” 


The diskette in drive dr is initialized. If the dr parameter is not present, 
the diskette in drive 0 will be initialized. You do not need to initialize a 
diskette after preparing it; the preparation process also initializes the 
diskette. 


Example: 
OPEN 1.8,15 Open the diskette command channel 
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PRINT#L, "I" Initialize diskettes in drive 0 


INPUT 
The INPUT statement receives data input from the keyboard. 


Format: 


(blank) 
INPUT oe var[,var,...,var] | 


INPUT can be used in program mode only. When the INPUT 
statement is executed, VIC BASIC displays a question mark on the screen 
requesting data input. The user must enter data items that agree exactly in 
number and type with the variables in the INPUT statement parameter list. 
If the INPUT statement has more than one variable in its parameter list, 
then keyboard entries must be separated by commas. The last entry must be 
terminated with a carriage return. 


71234 <CR> Single data item response 
21234,567.89,NOW<CR> Multiple data item response 


If “message” is present, it is displayed before the question mark. 
“message” can have as many as 80 characters. 

If more than one but less than the required number of data items are 
input, VIC BASIC requests additional input with double question marks 
(2?) until the required number of data items have been input. If too many 
data items are input, the message 7EXTRA IGNORED is displayed. The 
extra input is ignored, but the program continues execution. 


Example: 
Statement Operator Response Result 
10 INPUT A,B,C$ ? 123,456,NOW A= 123,B=456,C$=“NOW” 
10 INPUT A,B.C$ ? 123 A=123 
77 456 B=456 
2? NOW C$=“NOW” 
19 INPUT A.B.C$ ? NOMI 
?REDO FROM START 
? 123 A=123 
77 456 B=456 
2? 789 C=“789” 
10 INPUT "A= ">A Aw ? 123 A=123 
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Note that you must input numeric data for a numeric variable, but you 
can input numeric or string data for a string variable. 

Caution: If the RETURN key is pressed in response to an INPUT 
statement with no preceding data entry, program execution ceases and the 
computer enters immediate mode. To restart execution type CONT in 
response to the READY message. 


INPUT# 


The INPUT External statement (INPUT#) inputs one or more data 
items from an external device identified via a logical file number. 


Format: 
INPUTH#If var[,var,...,var] 


The INPUT# statement inputs data from the selected external device 
and assigns data items to variable(s) var. Data items must agree in number 
and kind with the INPUT# statement parameter list. 

If an end-of-record is detected before all variables in the INPUT# 
statement parameter list have received data, then an OUT OF DATA error 
Status is generated, but the program continues to execute. 

INPUT# and INPUT statements execute identically, except that 
INPUT# receives its input from a logical file. Also, INPUT# does not 
display error messages; instead, it reports error statuses that the program 
must interrogate and respond to. 

Input data strings may not be longer than 80 characters (79 characters 
plus a carriage return) because the input buffer has a maximum capacity of 
80 characters. Commas and carriage returns are treated as item separators 
by the computer when processing the INPUT# statement; they are recog- 
nized, but are not passed on to the program as data. INPUT# is valid in 
program mode only. 


Example: 


1080 INPUT#19,A Input the next data item from logical file 10. A numeric 
data item is expected, it is assigned to variable A 

946 INPUT#12.A$ Input the next data item from logical file 12. A string 
data item is expected, it is assigned to variable A$ 

908 INPUT#S,B,C$ = Input the next two data items from logical file 5. 
The first data item is numeric; it is assigned to numeric 
variable B. The second data item is a string; 
it is assigned to string variable C$ 
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LET= 


The Assignment statement LET=, or simply =, assigns a value to a 
specified variable. 


Format: 


ot var =data 


Variable var is assigned the value computed by resolving data. The 
word LET is optional; it is usually omitted. 
Example: 


18 Az2 
4350 C$s"N" 


309 M¢1,3)=86NCK) 
310 XX$¢1,J,K,L9="STRINGRLONG" 


LIST 


LIST displays one or more lines of a program. Program lines displayed 
by the LIST statement may be edited. 


Format: 
(blank) 
line 
LIST line —line, 
—line 
line— 


The entire program is displayed in response to LIST. Use line-limiting 
parameters for long programs to display a section of the program that is 
short enough to fit on the screen. 


Example: 
LIST List entire program 
LIST 38 List line 50 


LIST 60~100 List all lines in the program from lines 60 to 100, inclusive 


LIST ~148 List all lines in the program from the beginning of the program 
through line 140 

LIST 2088Q- —_List all lines in the program from line 20000 to the end 
of the program . 
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Listed lines are reformatted as follows: 


1. ?’s entered as a shorthand for PRINT are expanded to the word 
PRINT. Example: 


2A becomes PRINT A 
2. Blanks preceding the line number are eliminated. Example: 


50 A=1 i euomes 50 A=1 
100 A=A+1 100 A=A+1 


3. A space is inserted between the line number and the rest of the 
statement if none was entered. Example: 
55A=B—2 becomes 55 A=B—2 
LIST is always used in immediate mode. A LIST statement in a 
program will list the program but then exit to immediate mode. Attempting 


to continue program execution via CONT simply repeats the LIST 
indefinitely. 


Printing a Program Listing 


To print a program listing instead of displaying it, OPEN a printer 
logical file and execute a CMD statement before executing the LIST 
statement. Here is the necessary immediate mode sequence: 


OPEN 4.4 Open the printer specifying logical file 4 


CMD 4 Deflect display output to the printer 
LIST Print the program listing 
PRINT#4 Deflect output back to the display 
CLOSE 4 

LOAD 


The LOAD statement loads a program from an external device into 
memory. 


Cassette Program Format 


LOAD [“file name”[[ dev] 


The LOAD statement loads into memory the program file specified by 
file name from the cassette unit selected by device number dev. If no device is 
specified, device 1 is assumed by default; cassette unit | is then selected. If no 
file name is given, the next file detected on the selected cassette unit is loaded 
into memory. 
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Example: 

LOAD Load into memory the next program found on cassette 
unit #1. If you start a LOAD when the cassette is in 
the middle of a program, the cassette will read past the 
remainder of the current program, then load the next 

_ program 

LOAD "",2 Load into memory the next program found on cassette 
unit #2 

LOAD "EGOR" Search for the program named EGOR on tape cassette #1 
and load it into memory 

NS="WHEE!LS" Search for the program named WHEE !LS on cassette 

LOAD NS unit #1 and load it into memory 

LOAD "x" Search for a program named X on cassette unit #1 and 


load it into memory 


Diskette Drive Program Format 


LOAD “dr-file name”,dev 


The LOAD statement loads into computer memory the program file 
with the file name on the diskette in drive dev. The device number for the 
diskette drive unit is 8 in the VIC 20. If dev is not present, the default value is 
1, which selects the primary tape cassette unit. 

A single asterisk can be included instead of the file name, in which case 
the first program found on the selected diskette drive is loaded into memory. 


Example: 
LOAD"@:#",8 Load the first program found on disk drive 0 


LOAD"@:FIREBALL",.8 Search for the program named FIREBALL on disk 

drive 0 and load it into memory 

T$="Q: METEOR" Search for the program named METEOR on disk 

LOAD T$,8 drive 0 and load it into memory 

When a LOAD is executed in immediate mode, VIC BASIC automati- 
cally executes CLR before the program is loaded. Once a program has been 
loaded into memory, it can be listed, updated, or executed. 

The LOAD statement can also be used in program mode to build 
program overlays. A LOAD statement executed from within a program 
causes that program’s execution to stop and another program to be loaded. 
In this case the VIC computer does not perform a CLR; therefore, the old 
program can pass on all of its variable values to the new program. 
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When a LOAD statement accessing a cassette unit is executed in 
program mode, LOAD message displays are suppressed unless the tape 
PLAY key is up (off). If the PLAY key is off, the PRESS PLAY ON TAPE #1 
message is displayed so that the load can proceed. All LOAD messages are 
suppressed when loading programs from a diskette in program mode. 


The NEW statement clears the current program from memory. 


Format: 
NEW 


When a NEW statement is executed, all variables are initialized to zero 
or null values and array variable space in memory is released. The pointers 
that keep track of program statements are reinitialized, which has the effect 
of deleting any program in memory; in fact the program is not physically 
deleted. NEW operations are automatically performed when a LOAD 
statement is executed. 

If there is a program in memory, you should execute a NEW statement 
in immediate mode before entering a new program at the keyboard. Other- 
wise, the new program will overlay the old one, replacing lines if their 
numbers are duplicated, but leaving other lines. The result is a scrambled 
mixture of two unrelated programs. 


Example: 
NEW 


NEW is always executed in immediate mode. If a NEW statement is 
executed from within a program, the program will “self-destruct,” or clear 
itself out. 


NEW (DOS Command) 


Use PRINT# to prepare and format a new diskette or to erase and 
reformat an old diskette. 


Format: 
PRINT#/£“N[EW)]dr:disk name,vv” 


The diskette in drive dr is prepared. When a diskette is prepared, sectors 
are laid out on the diskette surface. The diskette directory and Block 
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Availability Map (BAM) are initialized. The diskette is assigned the name 
disk name and the number vv. 


The diskette name and number are displayed in the reverse field at the 
top of a directory display. 
Example: 


OPEN 1,8.15 Open the diskette command channel 


PRINT#1,"NO:NEWDATA, 62" A diskette has been prepared for use in 
drive 0. The diskette is given the 
name NEWDATA and the number 02 


ON-GOSUB 


The ON-GOSUB statement provides conditional subroutine calls to 
one of several subroutines in a program, depending on the current value of a 
variable. 


Format: 

ON byte GOSUB line [,line,,...,line ] 

ON-GOSUB has the same format as ON-GOTO. Refer to the ON- 
GOTO statement description for branching rules. byte is evaluated and 
truncated to an integer number, if necessary. 

For byte=1, the subroutine beginning at line, is called. That subroutine 
completes execution with a RETURN statement that causes program exe- 
cution to continue at the statement immediately following ON-GOSUB. If 
byte=2, the subroutine beginning with line, is called, and so on. 

ON-GOSUB is normally executed in program mode. It may be exe- 
cuted in immediate mode as long as there are corresponding line numbers to 
branch to in the current stored program. 


Example: 
14 ON A GOSUB 180,280,360 


ON-GOTO 


The ON-GOTO statement causes a conditional branch to one of several 
points in a program, depending on the current value of a variable. 


Format: 
ON byte GOTO line [,line,,...,line _] 
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byte is evaluated and truncated to an integer number, if necessary. 

If byte =1, a branch to line number line, occurs. If byte =2, a branch to 
line number line, occurs, and so on. . 

If byte =0, no branch is taken. If byte is in the allowed range but there is 
no corresponding line number in the program, then no branch is taken. Ifa 
branch is not taken, program control proceeds to the statement following 
the ON-GOTO; this statement may be on the same line as the ON-GOTO 
(separated by a colon) or on the next line. 

If index has a nonzero value outside of the allowed range, the program 
aborts with an error message. As many line numbers may be specified as will 
fit on the 80-character line. 

ON-GOTO is normally executed in program mode. It may be executed 
in immediate mode as long as there are corresponding line numbers in the 
current stored program that may be branched to. 


Example: 

40 A=B<C1a Branch to statement 100 if A is true 

38 ON At2 GOTO 188,280 (—1) or branch to statement 200 if A 
is false (0) 

38 X=K+1 Branch to statement 500 if X=1, 

66 ON K GOTO 500,600, 700 statement 600 if X=2, or to 
statement 700 if X=3. No branch is 
taken if X >3 

OPEN 


The OPEN statement opens a logical file and readies the assigned 
physical device. 


Cassette Data File Format 
OPEN /f [,dev][,sa][, “file name” 


The file named file name on the tape cassette unit identified by dev is 
opened for the type of access specified by the secondary address sa; the 
access is assigned the logical file number /f. 

If no file name is specified, the next file encountered on the selected tape 
cassette is opened. If no device is specified, device number | is selected by 
default; this device number selects cassette unit 1. If no secondary address is 
specified, a default value of 0 is assumed and the file is opened for a read 
access only. A secondary address of 1 opens the file for a write access, while a 
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secondary address of 2 opens the file for a write access with an end-of-tape 
mark written when the file is subsequently closed. 


Example: 

OPEN 1 Open logical file 1 at cassette drive #1 
(default) for a read access (default) 
from the first file encountered on the 
tape (no file name specified) 

OPEN 1.1 Same as above 

OPEN 1.1.8 Same as above 

OPEN 1,1.8,"DAT" Same as above but access the file named 
DAT 

OPEN 3.1.2 : Open logical file 3 for cassette #1 for a 


write with EOT (End Of Tape) 
access. The new file is unnamed and 
will be written at the current physical 
tape location 

OPEN 3.1,2,"PENTAGRAM" Same as above but access the file named 
PENTAGRAM 


Disk Data File Format 
OPEN If,dev,sa, “dr:file name,type[ ,access|” 


The file named file name on the diskette in drive dr is opened and 
assigned logical file number /f type identifies the file as sequential (SEQ), 
program (PRG), or random (USR). If the file is sequential, access must be 
WRITE to specify a write access or READ to specify a read access. Access is 
not present for a program or random access file. 

An existing sequential file can be opened for a write access if dr is 
preceded by an @ sign. The existing sequential file contents are replaced 
entirely by new written data. 

The device number dev must be present; it is 8 for all standard disk 
units. If dev is absent, a default value of 1 is assumed and the primary tape 
cassette unit is selected. 

For a data file the secondary address sa can have any value between 2 
and 14, but every open data file should have its own unique secondary 
address. A secondary address of 15 selects the disk unit command channel. 
Secondary addresses of 0 and | are used to access program files. Secondary 
address 0 is used to load a program file; secondary address | is used to save a 
program file. 
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Example: 


OPEN 1,8,2,."0: DAT, SEQ, READ" Open logical file 1 on a diskette in drive 
0. Read from sequential file DAT 

OPEN 5,8,.3,"1‘NEWFILE,SEQ.,WRITE" Open logical file5 ona diskette in drive 
1. Write to sequential file NEWFILE 

OPEN 4,8,4,"@1:NEWFILE,SEQ,WRITE" Open logical file 4 on diskette drive 1. 
Write to sequential file NEWFILE 
replacing prior contents 


POKE 


The POKE statement stores a byte of data in a specified memory 
location. 


Format: 
POKE memaadr,byte 


A value between 0 and 255, provided by byte, is loaded into the memory 
location with the address memadr. 


Example: 
19 POKE 1,A POKE value of variable A into memory 
at address I 
POKE 32768,ASC("A" 9-64 POKE | (the value of ASC (“A”)—64) 
into memory at address 32768 
PRINT 
The PRINT statement displays data; it is also used to print to the line 
printer. 
Format: 
PRINT ; , 
‘ 9 \ data 1} data. {;} data 
PRINT Field Formats 


Numeric fields are displayed using standard numeric representation for 
numbers greater than 0.01 and less than or equal to 999999999. Scientific 
notation is used for numbers outside of this range. Numbers are preceded by 
a sign character and are followed by a blank character. 
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Numeric field 

display 
The sign is blank for a positive number and a minus sign (—) for a negative 
number. 
Strings are displayed without additions or modifications. 


PRINT Formats 


First data item. The first data item is displayed at the current cursor 
position. The PRINT format character (comma or semicolon) following the 
first data item specifies the location of the second data item’s display. The 
location of each subsequent data item’s display is determined by the punctuation 
following the preceding data item. Data items may be in the same PRINT 
statement or in a separate PRINT statement. 

New line. When no comma or semicolon follows the last data item in a 
PRINT statement, a carriage return occurs after the last data item is 
displayed. 

Tabbing. A comma following a data item causes the next data item to 
be displayed at the next default tab column. Default tabs are at columns 1, 
11, and 21. Ifa comma precedes the first data item, a tab will precede the first 
item display. 

Continuous. A semicolon following a data item causes the next display 
to begin immediately in the next available column position. Numeric data 
always has one trailing blank character. For string data, items are displayed 
continuously with no forced intervening spaces. 


Example: 
49 PRINT A 
40 PRINT A-E.C 
49 PRINT AGBC 
49 PRINT, ABC 
46 PRINT "NUMBERS",A,BC 


4@ PRINT "NUM": "BER"; 
41 PRINT "S".ASBIC 
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PRINT# 


The PRINT External statement (PRINT#) outputs one or more data 
items from the computer to an external device (cassette tape unit, disk unit, 
or printer) identified by a logical file number. 


Format: 
PRINTH#If,data; CH R$(13);data;CH R$(13),...,;CHRS$ (13);data 


Data items listed in the PRINT# statement parameter list are written to 
the external device identified by logical unit number /f. 

Very specific punctuation rules must be observed when writing data to 
external devices. A brief summary of punctuation rules is given below. 


PRINT# Output to Cassette Files 


Every numeric or string variable written to a cassette file must be 
followed by a carriage return character. This carriage return character is 
automatically output by a PRINT# statement that has a single data item in 
its parameter list. Buta PRINT# statement with more than one data item in 
its parameter list must include c$ characters that force carriage returns. For 
example, use CHR$(13) to force a carriage return, or a string variable that 
has been equated to CHR$(13) such as c8=CHR3$(13). 


PRINT# Output to Diskette Files 


The cassette output rules described above apply also to diskette files 
with one exception: Groups of string variables.can be separated by comma 
characters (CHR$(44)). The comma character separators, like the carriage 
return separators, must be inserted using CHR$. String variables written to 
diskette files with comma character separators must subsequently be read 
back by a single INPUT# statement. The INPUT# statement reads all text 
from one carriage return character to the next. 


PRINT# Output to the Line Printer 


When the PRINT# statement outputs data toa line printer CHR$ must 
equal CHR$(29). No punctuation characters should separate CHR$ from 
data items, as illustrated in the PRINT# format definition. 

Caution: The form ?# cannot be used as an abbreviation for PRINTH. 
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The READ statement assigns values from a DATA statement to vari- 
ables named in the READ parameter list. | 


Format: 
READ var|,var,...,var] 


READ is used to assign values to variables. READ can take the place of 
multiple assignment statements (see LET=). 

READ statements with variable lists require corresponding DATA 
statements with lists of constant values. The data constants and correspond- 
ing variables have to agree in type. A string variable can accept any type of 
constant; a numeric variable can accept only numeric constants. 

The number of READ and DATA statements can differ, but there must 
be an available DATA constant for every READ statement variable. There 
can be more data items than READ statement variables, but if there are too 
few data items the program aborts with an 7?0UT OF DATA error message. 

READ is generally executed in program mode. It can be executed in 
immediate mode as long as there are corresponding DATA constants in the | 
current stored program to read from. 


Example: 


1@ DATA 1.2.3 On completion, A=1, B =2, C=3 
286 READ A.B,C 


150 READ CS,.D,F$ On completion, C$=“STR”, D =14.5, FS=“TM” 
16@ DATA STR 
178 DATA 14.35, "TM" 


REM 
The Remark statement (REM) allows comments to be placed in the 
program for program documentation purposes. 
Format: 
REM comment 
where 


comment is any sequence of characters that will fit on the 
current 80-column line. 


REM statements are reproduced in program listings, but they are 
otherwise ignored. A REM statement may be placed ona line of its own, or 
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it may be placed as the last statement on a multiple-statement line. 

A REM statement cannot be placed ahead of any other statements ona 
multiple-statement line, since all text following the REM is treated as a 
comment. REM statements may be placed in the path of program execu- 
tion, and they may be branched to. 


Example: 


10 REM Hee HO OR eH 
26 REM *#*PROGRAM EXCAL I BURMEM 
38 GOTO 55 REM BRANCH IF OUT OF DATA 


RESTORE 


The RESTORE statement resets the DATA statement pointer to the 
beginning of data. 


Format: 
RESTORE 
RESTORE may be given in immediate or program mode. 


Example: 


10 DATA 1,2,N44 

20 READ A,B, BS A=1, B=2, B3=“N44” 
38 RESTORE 

4@ READ x,¥,2% X=I1, Y=2, Z$=“N44” 


RETURN 


The RETURN statement branches program control to the statement in 
the program following the most recent GOSUB call. Each subroutine must 
terminate with a RETURN statement. 


Format: 
RETURN 


Example: 
198 RETURN 


Note that the RETURN statement returns program control from a 
subroutine, whereas the RETURN key moves the cursor to the beginning of 
the next display line. The two are not related in any way. 
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-RUN begins execution of the program currently stored in memory. 
RUN closes any open files and initializes all variables to 0 or null values. 


Format: 
RUN[line] 


When RUN is executed in immediate mode, the computer performs a 
CLR of all program variables and resets the data pointer in memory to the 
beginning of data (see RESTORE) before executing the program. 

If RUN specifies a line number, the computer still performs the CLR 
and RESTORES the data, but execution begins at the specified line number. 
RUN specifying a line number should not be used following a program 
break — use CONT or GOTO for that purpose. 

RUN may also be used in program mode. It restarts program execution 
from the beginning of the program with all variables cleared and data 
pointers reinitialized. 


Example: 

RUN Initialize and begin execution of the current program 

RUN 10888 Initialize and begin execution of the program starting at line 1000 
SAVE 


The SAVE statement writes a copy of the current program from 
memory to an external device. 


Cassette Unit Format 


SAVE [“file name” dev][,sa] 


The SAVE statement writes the program that is currently in memory to 
the tape cassette drive specified by dev. If the dev parameter is not present, 
the assumed value is 1 and the primary cassette drive is selected. The file 
name, if specified, is written at the beginning of the program. If a nonzero 
secondary address (sa) is specified, an end-of-file mark is written on the 
cassette after the saved program. 

Although no SAVE statement parameters are required when writing to 
a cassette drive, it is a good idea to name all programs. A named program 
can be read off cassette tape either by its name or by its location on the 
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cassette tape. A program with no name can be read off cassette tape by its 


location only. 
The SAVE statement is most frequently used in immediate mode, 


although it can be executed from within a program. 


Example: 
SAVE Write the current program onto the cassette in drive I, 
leaving it unnamed 
SAYE "RED" Write the current program onto the cassette in drive 1, 
assigning the file name of RED 
AS="RED" Same as above 
SAYE AS 


SAVE "BLACKJACK",.2,1 Write the current program onto thecassette in drive 2, 
naming the program BLACKJACK. Write an 
end-of-file mark after the program 


Diskette Drive Format 


SAVE “dr,file name”, dev 


The SAVE statement writes a copy of the current program from 
memory to the diskette in the drive specified by dr. The program is given the 
name file name. dev must be present; normally, it has the value 8. If dev is 
absent, a default value of 1 is assumed and the cassette is selected. 

The file name assigned to the program must be new. If a file with the 
same name already exists on the diskette, a syntax error is reported. How- 
ever, a program file can be replaced; if an @ sign precedes dr in the SAVE 
statement text string, the program replaces the contents of a current file 
named file name. 

The diskette SAVE statement is also used primarily in immediate mode 
although it can be executed out of a program. 


STOP 


The STOP statement causes the program to stop execution and return 
control to VIC BASIC. A break message is displayed on the screen. 


Format: 
STOP 
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Example: 
655 STOP Will cause the message BREAK IN 655 
to be displayed 
VALIDATE 
Format: 


PRINT#//,“V[ALIDATE][dr]” 


The diskette in drive dr is validated. If the dr parameter is absent, the 
diskette in the most recently selected drive is validated. 

When a diskette is validated, a new Block Availability Map is created 
for all valid data files on the diskette. Any files that were improperly closed 
or were not closed become invalid files; they are deleted from the diskette 
and their diskette space is released. 

Do not validate a diskette that contains random access files; validation 
will erase the random access file. If a read error occurs during validation, the 
validation operation is aborted and the diskette is left in its initial state. A 
diskette must be initialized after it is validated. 


Example: 
OPEN 1.8.15 Open the diskette command channel 
PRINT#1, "IQ" Initialize the diskette in drive 0 
PRINT#1, "YO" Validate the diskette in drive 0 
VERIFY 


The VERIFY statement compares the current program in memory with 
the contents of a program file. 


Casseite Unit Format 


VERIFY [file name” ][ dev] 


The program currently in memory is compared with the program 
_ named file name on the cassette in the unit specified by dev. If dev is not 
present, a default of 1 is assumed and cassette unit | is selected. If file name is 
not present, the next file on the cassette in the selected unit is verified. 
You should always verify a program immediately after saving it. The 
VERIFY statement is almost always executed in immediate mode. 
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Example: 
VERIFY Verify the next program found on the 
tape 
VERIFY "CLIP" Search for the program named CLIP on 
cassette unit #1 and verify it 
AS="CLIP" Same as above 
VERIFY Ag 
Diskette Drive Format 


VERIFY “dr,file name” ,dev 


The program currently stored in memory is compared with the pro- 
gram file named file name on the diskette in drive dr. The dev parameter 
must be present and unless otherwise specified it must have the value 8. If the 

_ dev parameter is absent, a default value of | is assumed and the primary 
cassette drive is selected. 

In order to verify the program most recently saved, use the following 
version of the VERIFY statement: 


VERIFY "#",8 


You should always verify programs as soon as you have saved them. The 
VERIFY statement is nearly always executed in immediate mode. 


Example: 
VERIFY "#",8 Verify the program just saved 
VERIFY"@:SHELL",8 Search for the program named SHELL 
on disk drive 0 and verify it 
C$="@: SHELL" Same as above 
VERIFY C$ 
WAIT 


The WAIT statement halts program execution until a specified memory 
location acquires a specified value. 


Format: 
WAIT memadr, mask[,xor] 
where 
mask is a one-byte mask value 
xor is a one-byte mask value 
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The WAIT statement executes as follows: 
1. The contents of the addressed memory location are fetched. 


2. The value obtained in step 1 is Exclusive-ORed with xor, if present. 
If xor is not specified, it defaults to 0. When xor is 0, this step has no 
effect. 


3. The value obtained in step 2 is ANDed with the specified mask 
value. 


4. If the result is 0, WAIT returns to step 1, remaining in a loop that 
halts program execution at the WAIT. 


5. Ifthe result is not 0, program execution continues with the statement 
following the WAIT statement. 


The STOP key will not interrupt WAIT statement execution. 
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BASIC Functions 


The VIC 20 can define a great number of functional operations directly 
from BASIC. These functions include mathematical derivations, screen 
formatting instructions, and string manipulators. They are listed in alpha- 
betical order. 


ABS returns the absolute value of a number. 


Format: 
ABS(data n) 

Example: 
A=ABS¢(18) Results in A=10 
A=ABS<(-18) Results in A=10 


PRINT ABS“X), ABSCY> ,ABSCZ) 


ASC 
ASC returns the ASCII code number for a specified character. 


Format: 
ASC(data$) 


371 
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If the string is longer than one character, ASC returns the ASCII code 
for the first character in the string. The returned argument is a number and 
may be used in arithmetic operations. ASCII codes are listed in Appendix 
A. 


Example: 


PASCO "A") Prints 65 
X@ASCK"S") 
re,' Prints the ASCII value of “S,” which is 83 


ATN 


ATN returns the arctangent of the argument. 


Format: 
ATN(data n) 
ATN returns the value in radians in the range +17. 


Example: 


R=ATNCAG) 
7188r#ATNCAD 


CHR$ 
CHR$ returns the string representation of the specified ASCII code. 


Format: 
CHRS$ (byte) 


CHRS$ can be used to specify characters that cannot be represented in 
strings. These include a carriage return and the double quotation mark. 


Example: 
IF C$=CHRSC13) GOTO 18 Branch if C$ is a carriage return (CHR$(13)) 
/ 


PCHRS¢ 34): "HOHOHO" :CHR$(34) Print the eight characters “HOHOHO” (where 
CHR3$(34) represents a double quotation mark) 
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cos 
COS returns the cosine of the argument. 


Format: 
COS(data n) 


EXP 
EXP returns the value e*®. The value of e used is 2.71828183. 


Format: 
EXP(arg n) 
argn must havea value in the range +88.029691. A number larger than 


+88.029691 will result in an overflow error message. A number smaller than 
—88.029691 will yield a zero result. 


Example: 
PEXP CO) Prints | 
PEXPC1) Prints 2.71828183 
EVeEXP(2) Results in EV=7.3890561 
EB=EXP (59.24) Results in EB=6.59105247E+21 
PEXP 88, 8296919) Largest allowable number, yields 1.70141183E+38 


FEXP(-68. 0296919) Smallest allowable number, yields 5.87747176E—39 
PEXP (88. 829692) Out of range, overflow error message 
PEXKP“~88, 829632) Out of range, returns 0 


FRE 
FRE is a system function that collects all unused bytes of memory into 
one block (called “garbage collection”) and returns the number of free bytes. 


Format: 
FRE(arg) 
arg is a dummy argument. It may be string or numeric. 
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FRE can be used anywhere a function may appear, but it is normally 
used in an immediate mode PRINT statement. 


Example: 


PFREC1) Institute garbage collection and print the 
number of free bytes 


INT 


INT returns the integer portion of a number, rounding to the next lower 
signed number. 


Format: 

INT(arg n) 

For positive numbers, INT is equivalent to dropping the fractional 
portion of the number without rounding. For negative numbers, INT is 
equivalent to dropping the fractional portion of the number and adding 1. 
Note that INT does not convert a floating point number (5 oes) to integer 
type (2 bytes). 


Example: 


AsINTC1.5) Results in A=1 
R=INTC~1.5) Results in A=—2 
ASZINTC “8.19 Results in X=— 1 


A caution here: Since floating point numbers are only close approxima- 
tions of real numbers, an argument may not yield the exact INT function 
value you might expect. For instance, consider the number 3.89999999. The 
function *INT(3.89999999) would yield a 3 answer, not 4 as would be 
expected. 


eee 89999999) 


LEFTS$ 


LEFTS$ returns the leftmost characters of a string. 
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Format: 
LEFTS(arg$,byte) 


byte specifies the number of leftmost characters to be extracted from 
the arg$ character string. 


Example: 

PLEFTS¢ "ARG", 2) Prints AR 

AS=LEFTS<( BS, 10) Prints leftmost ten characters of the string BS 
LEN 


LEN returns the length of the string argument. 


Format: 

LEN(arg$) | 

LEN returns a number that is the count of characters in the specified 
string. 
Example: 

7LENS "ABCDEF" > Displays 6 


N=LENCCS+D$> Displays the sum of characters in strings C$ and D$ 


LOG 

LOG returns the natural logarithm, or log, to the base e. The value of e 
used is 2.71828183. 
Format: 

LOG(arg n) 

An ILLEGAL QUANTITY ERROR message is returned if the argu- 
ment is zero or negative. 


Example: 
PLOGS 1) Prints 0 
A=LOG¢18> Results in A=2.30258509 
A=LOG<1E6> Results in A=13.8155106 


A=LOG¢X> /LOG¢ 18) Calculates log to the base 10 
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MIDS 


MID$ returns any specified portion of a string. 


Format: 

MIDS$(data$,byte [,byte,]) 

Some number of characters from the middle of the string identified by 
data$ are returned. The two numeric parameters byte, and byte, determine 
the portion of the string which is returned. String characters are numbered 

from the left, with the leftmost character having position 1. The value of 
byte, determines the first character to be extracted from the string. Begin- 


ning with this character, byte, determines the number of characters to be 


extracted. If byte, is absent then all characters up to the end of the string are 
extracted. 

An ILLEGAL QUANTITY ERROR message is printed if a parameter 
is out of range. 


Example: 
PMIDSC"ABCDE", 2,1) Prints B 


IMIDS<"ABCDE", 3,2) Prints CD 
OMIDS<"ABCDE", 3) Prints CDE 


PEEK returns the contents of the specified memory location. PEEK is 
the counterpart of the POKE statement. 


Format: 
PEEK(mem adr) 


Example: 
PEEK“ 1) Prints contents of memory location | 


A=PEEK (20080) 
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POS 


POS returns the column position of the cursor. 


Format: : 
POS(data) 


data is a dummy function; it is not used and therefore can have any 
value. 

POS returns the current cursor position. If no cursor is displayed, the 
current character position within a program line or string variable is 
returned. Character positions begin at 0 for the leftmost character. 

Recall that program logic processes 80-character lines even though the 
VIC 20 computer has a 22-character display. If program logic in such a 
computer is processing a character in the second half of the line, the POS 
function will return a value between the beginning and the end of the line (in 
other words, 23 to 44). 

By concatenation, string variables with up to 255 characters may be 
generated. If program logic is processing a long string, then the POS 
function will return the character position currently being processed. Under 
these circumstances the POS function will return a value ranging between 0 
and 255. 


Example: 


PPOS¢1) At the beginning of a line, returns 0 


?"ABCABC"; POS< 1) With a previous POS value of 0, displays a POS value of 6 


RIGHTS 

RIGHTS returns the rightmost characters in a string. 
Format: 

RIGHTS(arg$,byte) 


byte identifies the number of rightmost characters that are extracted 
from the string specified by arg$. 


Example: 
RIGHTSCARG, 2) Displays RG 
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MMS=RIGHTS(X$4+"8#",5) MMS is assigned the last four characters of X$, 
plus the character # 


RND generates random number sequences ranging between 0 and 1. 


Format: 


RND(arg n) Return random number 
RND(—argn) Store new seed number 


Example: 
ASRNDC~1> Store a new seed based on the value — 1 
R=RNDC 1) Fetch the next random number in sequence 


An argument of zero is treated as a special case; it does not store a new 
seed, nor does it return a random number. RND(0) uses the current system 
time value TI to introduce an additional random element into play. 

A pseudo-random seed is stored by the following function: 


RND¢-TI> Store pseudo-random seed 


RND(0) can be used to store a new seed that is more truly random by 
using the following function: 


RND<-RNDCO) > Store random seed 
For a complete discussion of the RND function see Chapter 5. 


SGN 

SGN determines whether a number is positive, negative, or zero. 
Format: 

SGN(arg n) 


The SGN function returns +1 if the number is positive or nonzero, 0 if 
the number is zero, or —1 if the number is negative. 


Example: 
?SGN¢-6) Displays — 1 
?SBNC@) Displays 0 
7SGNC44) Displays 1 
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IF ADC THEN SA=SGN¢X) 

IF SGN<M)>=@ THEN PRINT "POSITIVE NUMBER" 
SIN 

SIN returns the sine of the argument. 


Format: 
SIN(arg n) 


Example: 
A=SINCAG) 
?SINC45#1/180) Displays the sine of 45 degrees 


SPC 


SPC moves the cursor right a specified number of positions. 


Format: 

SPC(byte) 

The SPC function is used in PRINT statements to move the cursor 
some number of character positions to the right. Text which the cursor 
passes over is not modified. 

The SPC function moves the cursor right from whatever column the 
cursor happens to be in when the SPC function is encountered. This is in 
contrast to a TAB function, which moves the cursor to some fixed column 
measured from the leftmost column of the display. (See TAB for examples.) 


SQR returns the square root of a positive number. A negative number 
returns an error message. 


Format: 
SQR(arg n) 

Example: 
AsSGR 4) Results in A=2 
AeSQR64, 84) Results in A=2.2 
?8AR‘144E30> Displays 1.2E+ 16. 
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ST 


ST returns the current value of the I/O status. This status is set to 
certain values depending on the results of the last input / output operation. 


Format: 

ST 

ST values are shown in Table H-1. 

Status should be checked after execution of any statement that accesses 
an external device. 
Example: 

1@ IF ST<>B GOTO 5ee Branch on any error 


50 IF ST=4 THEN ?"SHORT BLOCK" 


STRS 


STRS$ returns the string equivalent of a numeric argument. 


Format: 
STRS$(arg n) 


STR$ returns the character string equivalent of the number generated 
by resolving arg n. 


TABLE H-4. ST Values for I/O Devices 


ST Bit ST Numeric Cassette Cassette Tape IEEE Devices 
Position Value Tape Read Verify and Load Read/Write 


Time out write 
Time out read 
Short block Short block 


Long block ‘Long block 


Unrecoverable Any mismatch 
read error 


Checksum error | Checksum error 
End of file EOI 
End of tape End of tape Device not present 
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Example: 
AS=STREC14.6) Displays 14.6 
7A$ 
?STREC1E2) Displays 100 
PSTRE¢1E18) Displays 1E+10 
SYS 


SYS is a system function that transfers program control to an inde- 
pendent subsystem. 


Format: 
SYS(mem adr) 


mem aar is the starting address at which execution of the subsystem is 
to begin. The value must be in the range 0 <address <65535. 


TAB 


TAB moves the cursor right to the specified column position. 


Format: 

TAB(arg n) 

TAB moves the cursor to the nt+1 position, where n is the number 
obtained by resolving arg n. 


Example: 


2"QUARK"; SPCC18)5 "W" These two examples show the difference between SPC 
QUARK W and TAB. SPC skips ten positions from the last 
cursor location, whereas TAB skips to the 10+ Ith 
position on the row | 


"QUARK"; TABC1@) 5 "W" 
QUARK MW 


TAN 
TAN returns the tangent of the argument. 


Format: 
TAN(arg n) 
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Example: 
9TANC3. 2) Displays 0.0584738547 


46 LO=TANS 180KR/ 188) 


Ti, TIS 


TI and TI$ represent two system time variables. 


Format: 


TI Number of jiffies since current startup 
TI$ Time of day string 


Example: 


?TI 
TI$="981000" 


USR is a system function that passes a parameter to a user-written 
assembly language subroutine whose address is contained in memory loca- 
tions 1 and 2. USR also fetches a return parameter from the subroutine. 


Format: 
USR(arg) 


VAL 


VAL returns the numeric equivalent of the string argument. 


Format: | 
VAL(data$) 


The number returned by VAL may be used in arithmetic computations. 
VAL converts the string argument by first discarding any leading 
blanks. If the first nonblank character is not a numeric digit (0-9), the 
argument is returned as a value of 0. If the first nonblank is a digit, VAL 
begins converting the string into real number format. If it subsequently 
encounters a nondigit character, it stops processing so that the argument 
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returned is the numerical equivalent of the string up to the first nondigit 
character. 
Example: 

A=¥AL "123" 

NN=VAL BS) 
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Abbreviations, 82-83, 334 
ABS function, 112, 371 
AND operator, 72 
“bit-masking”, 161, 211 
Animation, 185-91 
delay loops, 187 
sound combined with, 246-48 
using custom characters for, 204-08 
using graphics characters for, 185-87 
Arrays, 77-79 
ASC function, 114, 371 
Assignment statement, 84 
ATN function, 112, 372 
Auxiliary color 
defined, 215 
setting, 215 


BLOCK-ALLOCATE (disk instruction), 272 
BLOCK-FREE (disk instruction), 275 
BLOCK-READ (disk instruction), 269 . 
BLOCK-WRITE (disk instruction), 273 
BUFFER-POINTER (disk instruction), 274 
buffers, 252 


Cc 


Cassettes. See also Datasette 
selection and care, 26 
write-protection, 26 

Character memory 
changing location of, 223-25 
contents, 192 
defined, 192 
locating characters in, 196 

CHRS$ function, 103, 114, 128, 278, 372 
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Clock, Real-time, 146-50 

jiffies defined, 147 

reading the time, 147 

setting the time, 146 

TIME and TIMES variables, 147 

timing an event, 150 
CLOSE statement, 55, 284, 341 
CLR/HOME key, 14 
CLR statement, 342 
CMD statement, 55, 284, 342 
Color 

control keys, 14 

with PRINT statement, 179-80 
Color memory 

contents, 182-83 

defined, 182 

location, 182 

location dependent on screen memory, 224 
Computed GOSUB statement, 90 
Computed GOTO statement, 90, 142 
CONT statement, 343 
COS function, 113, 373 
CRSR keys. See Cursor control keys 
Cursor 

-control keys, 14-19 

moving within a program, 126, 144 
Custom characters 

animation with, 204-08 

combining with built-in character set, 203 

designing 197-201 

programming techniques for, 202-04 

replacing standard character set, 199 


DATA statement, 86, 242, 343 
Datasette 
cleaning, 24 
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Datasette (continued) 
connecting, 21 
loading programs from cassette, 47 
reading data from, 257-59 
saving programs on cassette, 46 
testing, 22 
verifying that a program was saved, 47 
writing data on, 255-57 
DEF FEN statement, 115, 344 
device numbers, 254 
DIM (dimension) statement, 88, 345 
Disk drive 
BAM, 262 
BLOCK-ALLOCATE instruction, 272 
BLOCK-FREE instruction, 275 
BLOCK-READ instruction, 269 
BLOCK-WRITE instruction, 273 
BUFFER-POINTER instruction, 274 
concatenating files on, 265 
connecting, 27 
connecting more than one, 265-66 
copying files on, 265 
directory, 262 
erasing files on, 264 
formatting a diskette, 51, 263 
how data are stored on, 260 
indicator lights, 28 
loading and unloading diskettes, 28, 30 
loading programs from, 47 
MEMORY-EXECUTE instruction, 279 
MEMORY-READ instruction, 278 
MEMORY-WRITE instruction, 277 
number of files allowed, 250 
operating, 49-54 
reading data from, 257-59 
renaming files on, 264 
saving programs on, 46 
testing, 27 
user (Un) commands, 279-80 
utility instructions, 269-80 
VALIDATE command, 264 
writing data on, 268 
Diskettes. See Floppy disks 


END statement, 110, 345 
ERROR messages, 335-40 
EXP function, 113, 373 


fields, 251 

Files 
buffers, 252 
copying disk files, 265 
data files, 251 
Datasette, 254-60 
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Files (continued) 
defined, 250 
erasing disk files, 264 
fields, defined, 251 
file numbers, 252 
limits on number of open files, 268 
naming rules, 250 
PRINT# statement, 268 
program files, 250 
random access files, 268 
records, defined, 251 
renaming disk files, 264 
sequential files, 266 
Floppy disks. See also Disk drive 
care, 31 
sector, 262 
selection, 29 
write-protection, 31 
FOR statement, 92, 346 
FRE function, 115, 373 
Function keys (F1, F2, ... F8), 19-20 
Functions 
arithmetic, 112-13 
defined, 111 
string, 114 
system, 114-15 
trigonometric, deriving those not supplied, 
324 
user-defined, 115 


Game controllers. See Joystick controller, 
Paddle controller 

GET statement, 108-09, 133, 164-69, 347 
“echoing” input keystrokes, 166 
simulating a joystick (example), 166-69 
using CHR$ to check for “special” 

characters, 129 

GET# statement, 258, 271, 348 

GOSUB statement, 98, 348. See also Computed 
GOSUB 

GOTO statement, 88, 349. See also Computed 
GOTO 


High-resolution graphics 
defined, 208 
programming techniques, 210-14 


IF-THEN statement, 100, 349 

Immediate mode, 39 

INITIALIZE (disk instruction), 51, 262, 350 
INPUT statement, 106-08, 351 

INPUT# statement, 258, 268, 352 

INST/DEL (insert/ delete) key, 19, 41, 42 

INT function, 112, 374 
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J 


Jiffy. See Clock 

Joystick controller 
description, 158-60 
finding the position of the stick, 160-63 
precautions when programming for, 162 
sample subroutine for testing, 162 
simulating using keyboard (example), 166-69 


Kernal subroutine locations, 309 
Keyboard, 7-20 
cursor control keys, 14-19 
function keys, 10 


L 


LEFTS function, 114, 374 

LEN function, 114, 375 

LET statement. See Assignment statement 
Line numbers, 58 

LIST command, 353 

LOAD command, 47, 49, 251, 354 

LOG function, 113, 375 


Memory 

map, 295-304 

“stealing” from BASIC, 224-26 

and VIC chip, 221-23 
MEMORY-EXECUTE (disk instruction), 279 
MEMORY-READ (disk instruction), 278 
MEMORY-WRITE (disk instruction), 277 
MIDS function, 115, 376 
Modem 

connecting, 281 

definitions of terms, 282 
Multicolor Graphics 

“auxiliary” color, 215 

character memory and, 214 

defined, 214 

designing multicolored characters, 215-17 

forcing the VIC into “multicolor mode”, 221 

mixing with other types of graphics, 221 


NEW command, 356 
NEXT statement, 92, 346 
Numbers 
floating point, 60 
integers, 63 
ranges allowed, 63 
roundoff, 61 
scientific notation, 61 
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ON statement. See Computed GOSUB, Com- 
puted GOTO 
OPEN statement, 54, 253, 358 
limits on number of open files, 268 
Operators, 68-76 
arithmetic, 69-71 
Boolean, 72 
defined, 68 
order of evaluation, 71 
relational, 72 
OR operator, 72 
“bit-masking”, 211 
OVERFLOW ERROR, 63 


Paddle controller, 164 
PEEK function, 110, 373 
Players 
creating with graphics characters, 174-79 
defined, 174 
Playfield 
defined, 174 
POKE statement, 110, 360 
POS function, 105, 287, 377 
PRINT statement, 101-06, 127, 177-79, 360 
commas in, 102, 286 
print formatting functions, 104, 287 
and “quote mode”, 103 
semicolons in, 102, 286 
using CHR$ to PRINT “special” characters, 
128 
PRINT# statement, 268-69, 362 
Printer 
adjusting print head, 38 
character sets, 285 
CMD statement for, 55, 284 
CLOSE statement for, 55, 284 
connecting, 32 | 
double-width characters, 288 
graphics characters, 288, 289-91 
graphics repeat function, 291 
OPEN statement for, 54, 283 
paper loading, 35 
PRINT statement for, 54, 283 
PRINT formatting functions for, 286-88 
reversed characters, 288 
ribbon installation, 35 
T-5-4 switch, 35 
Program mode, 44 


a 
“Quote mode”, 42 
and PRINT statement, 103 
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Random numbers, 150-155 
“dealing cards”, example, 153 
defined, 151 
range of numbers generated, 151 
RND function, 113, 378 
“seed” number, 151 
simulating dice, example, 152 
READ statement, 86, 242, 363 
REM statement, 84, 363 
Reserved words 
defined, 80 
list of, 81 
RESTORE key, 13 
RESTORE statement, 88, 364 
RETURN key, 11 
RETURN statement, 98, 364 
RIGHTS function, 114, 119, 377 
RND function. See Random numbers 
RUN command, 45, 365 
RUN/STOP key, 12 
used to load and run a program, 49 
Reversed characters 
precautions when PRINTing, 177-78 
RVS OFF (reverse off) key, 12 ; 
precautions when PRINTing, 177-78 
RVS ON (reverse on) key, 12 
precautions when PRINTing, 177-78 
S 
SAVE command, 46, 53, 365 
Screen . 
“background” defined, 172 
“border” defined, 172 
colors, controlling the, 173-74, 333 
format, 172-73 
how the picture is created, 192 
Screen display codes 
defined, 183 
tables, 330-32 
Screen memory 
changing location of, 223 
contents, 183 
defined, 179 
layout, 181 
location of, 179 
SGN function, 112, 163, 378 
SHIFT key, 10 
SHIFT LOCK key, 10 
SIN function, 113, 379 
Sound 
animation combined with, 246 
attack, 237 
“beat” frequency, 239 
buzzer, simulating a, 235 
decay, 237 
fading out, 236-37 
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frequency tables, 230-32 
harmony, 235 
memory locations for controlling, 228, 306, 
333 
music, 241 
noise generator, 229, 240 
notes, storing and loading, 242, 245-46 
notes, POKE values for, 333 
“ping-pong” (example), 235-36 
pitch control, 228 | 
pulsed tones for sound effects, 235 
registers, defined, 227 
rhythm instrument sounds, 243-44 
sustain, 237 
tremolo, 238 
vibrato, 238 
“VIC Organ” (example), 244 
volume control, 228, 236-39 
SPC function 104 
SQR function, 112, 379 
ST variable, 259, 380 
STOP statement, 110, 366 
STR$ function, 114, 120, 380 
Strings, 117-22 
concatenating, 118 
defined, 64 
functions for manipulating, 114 
numeric, 119 
using CHR$§ to insert characters in, 128 
Subroutine, see also GOSUB statement 
defined, 96 
“nested” subroutines, 99 
SYS function, 115, 381 


T 


TAB function, 104, 381 
TAN function, 113, 381 — 
TI. See Clock 
TI$. See Clock 
TIME. See Clock 
TIMES. See Clock 
Trigonometric functions 
deriving those not included in BASIC, 324 


U 
USR function, 115, 382 


Vv 


VAL function, 114, 382 
Variables 
array variables, 77 
defined, 65 
names, rules for, 66-67 
VERIFY command, 47, 367 
VIA chip, 160 
VIC chip, 171 
memory locations to control, 305-08 
memory map as “seen” by, 221-23 
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Whether you're using your VIC 20 for entertainment or prac- 
tical applications, the VIC 20" USER GUIDE will help you 
enjoy your computer time as you build computer skills. 


The VIC 20" USER GUIDE shows you how to 

¢ Operate the VIC 20 and all its peripherals 

e Program in VIC BASIC : 

e Use the VIC 20's full range of color graphics and scund 
capabilities. ..even animation techniques for video 
game design 

e Build a custom character set 

e Learn advanced mathematical programming. 


Filled with comprehensive reference material and tutorials, 
the VIC 20" USER GUIDE is the definitive source for com- 
plete information on the VIC 20. » 
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